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El presente trabajo intenta reflejar los contenidos abordados en el Curso de 
WXIS (WWWIsis XML IsisScript Server). Para la comprensión de los temas, se 
han abordado una serie de ejercicio en los que se detallan los pasos seguidos. 

El paradigma que se plantea difiere de las aplicaciones hasta ahora 
realizadas con el WWWIsis. La idea es abordar a través de una Script, todas las 
acciones que se desean realizar. Por lo tanto, el esquema de trabajo de aquí en 
adelante, se abocará a la construcción de la Script para interactuar con los 
formularios en el Web. 

Para este trabajo se utiliza el software wxis.exe en entorno cgi-bin. La 
versión: 

CISIS Interface v3.45_3/PC32/M/30000/1 0/30/1 - XML IsisScript 1 .0 

CISIS Interface v3.45_3/.iy0/Z/4GB/GIZ/DEC/INVX/B64/FAT/CIP 

Copyright (c) BIREME/PAHO 1999. All rights reserved. 

WXIS release date: 19990716 


WXIS: 

• No es un programa residente 

• Es activado cada vez que se lo llama. 

• No almacena por sí mismo un estado. 

• Es dirigido o programado por las Scripts del WXIS. 

• Antes se poseían varios archivos cgi, ahora es sólo necesario 
uno: la Script. 

• Está disponible para varias plataformas (Windows 95, NT, Unix, 
etc.) 

• Trabaja con un archivo de licencia. La versión que se utiliza en el 
curso puede ser usado en ambiente de prueba. 

Se monta una Script por lo que el WXIS va a realizar. 

Desde del web, el cliente invoca la ejecución de una script WXIS a través 
del cgi para actuar sobre la base de datos ISIS, el resultado obtenido dependerá 
del propósito de la script pudiendo ser una página con los resultados de una 
búsqueda, la creación o modificación de un registro, actualización del archivo 
invertido, etc. 

También puede ser ejecutada desde la línea de comandos del Sistema 
Operativo. 

Toda IsisScript tiene una estructura que se debe respetar. La misma es la 
siguiente: 


<lsisScript name=nombre_del_Script> 
<section name=nombre> 

Área de tareas 
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</section> 

</lsisScript> 


A continuación se llama al WXIS a través del prompt del sistema. Antes de 
invocarlo se confeccionó una Script, que se denominó X.XIS: 

1. clsisScript name=Hello> 

2. <section name=um> 

3. <display>Hello World</display> 

4. </section> 

5. </lsisScript> 


Se puede apreciar la estructura planteada con anterioridad. En la línea 3, 
para poder desplegar el mensaje Helio World se debe colocar el mismo entre las 
marcas <display> y </display>. 

Se lo invoca desde el prompt del sistema de la siguiente manera: 

C:\Curso>wxis lsisScript=x.xis 

Es importante respetar las mayúsculas y minúsculas de la palabra 
IsisScript. 

Luego de la ejecución se visualiza el mensaje Helio World en la pantalla. 

Si se desea utilizar un formato Isis para la visualización, el mismo deberá 
ser indicado entre las marcas <pft> y </pft>. El caso anterior queda planteado: 


1. clsisScript name=Hello> 

2. esection name=um> 

3. <display> 

4. <pft>'Hello World'/, 'Esta es una segunda línea'</pft> 

5. </display> 

6. </section> 

7. </lsisScript> 


También se puede recurrir a un formato externo, en ese caso, dentro de las 
marcas <pft> se deberá colocar el nombre del formato precedido por el símbolo 

Ej. <pft>@formato1.pft</pft> 


donde @formato.pft puede contener 


'Helio World'/, 'Esta es una segunda línea' 


De aquí en más, para todos los ejercicios, se trabaja con el Servidor Web 
OmniHTTPD. El directorio por default es C:\httpd\HtDocs. La base de datos es 
CDS ubicada en el directorio C:\Curso. Los archivos correspondientes a las Script 
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se alojan en el directorio C:\httpd\cgi-bin\ar\. Los formularios se guardan en el 
directorio C:\httpd\HtDocs\ar. 

Para verificar si funciona el WXIS.EXE, se puede enviar una llamada al 
mismo por medio del browser, utilizando la siguiente sintaxis: 

http://localhost/cgi-bin/wxis.exe/?hello 


El sistema responde con la siguiente pantalla: 


1 Ej ?hello en lo calilo st - Microsoft Internet Explorer 1 

Archivo Edición Ver Ir a Favoritos 

Ayuda 






O => © 0 

Atrás Adelante Detener Actualizar 

Inicio Búsqueda 

B» S 

Favoritos Imprimir 

J 

Fuente 

Correo 

a 

Edición 


Dirección Ihttpi/VIocalhosVcgi-bin/wxis.exe^hello 


CISIS Inte rf ace v3 . 45_3/ PC32/M/30000/ 10/30/1 - XML IsisScript 1.0 
CISIS Inte rf ace v3 . 45_3/ . iyO/ 2/ 4 GB/ GI 2/ DEC/ INVX/ B 64/FAT/ CI P 
Copyright (c) BIREME/PAHO 1999. All rights reserved. 

WXIS release date: 19990716 

WXI S | missing erro r | parameter | IsisScript | 


A continuación se plantea el primer ejercicio que consiste en desplegar en 
el Browser, el mensaje HELLO WORLD!. 


Ejercicio N - 1 


A través un formulario se invoca al WXIS para que despliegue en una 
página Web el mensaje Helio World!. 

El formulario en html se lo ha denominado Ejerc1.html y tiene la siguiente 
codificación: 

1. <html> 

2. <head> 

3. <title>Script 0</title> 

4. </head> 

5. <body> 

6. <form action="/cgi-bin/wxis.exe" method="post"> 

7. cinput type="hidden" name="lsisScript" value="ar/script0.xis"> 

8. cinput type=submit value="OK para ver Helio. .."> 

9. </form> 

10. </body> 

1 1 .</html> 


En la línea 6 se le indica al formulario que debe invocar al WXIS.EXE que 
se encuentra en el directorio cgi-bin. El método utilizado es post. Este línea será 
un constante en todas las llamadas al WXIS. 
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La línea 7 especifica a través de un campo oculto, que el WXIS va a utilizar 
una IsisScript cuyo nombres es scriptO.xis y se encuentra en el directorio ar 
(dentro de HtDocs). 

La línea 8 corresponde al submit (botón) que permite enviar los datos del 
formulario. 

Cuando se carga en el Browser el archivo ejerc1.html, se puede observar 
la siguiente pantalla: 


[j Script 0 - Microsoft Internet Explorer 


Archivo Edición Ver Ira Favoritos Ayuda 

I <=■ ^ O 0 fS 

Atrás Adelante Detener Actualizar Inicio Bi 



El archivo scriptO.xis tiene la siguiente codificación: 

1. <lsisScript> 

2. <section> 

3. <display><pft>'Content-type: text/html',/#</pftx/display> 

4. <display>Hello World</display> 

5. </section> 

6. </lsisScript> 


En la línea 3 se indica al WXIS que el resultado lo debe devolver en 
formato html para que sea visualizado por el browser. Ello se indica dentro de 
marcas <pft>. 
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Luego de hacer ciick sobre el botón “OK para ver Helio...”, se observa la 
siguiente pantalla: 


[j wxis.exe en 127.0.0.1 - Microsoft Inte 


TTil 

Archivo Edición Ver Ir a Favoritos Ayuda 


& 


U 


o 

Atrás 


Detener Actualizar Inicio 


Dirección http:/71 27.0.0.1 /cgi-bin Avxis.exe 


Helio World 


Dentro del mismo ejercicio, se intenta pasar desde el formulario el nombre 
del cliente. Para ello, al formulario se le debe incorporar una nueva línea para 
tomar los datos del usuario. La codificación del mismo es: 

1. <htm¡> 

2. <head> 

3. <title>Script 0</title> 

4. </head> 

5. <body> 

6. <form action="/cgi-bin/wxis.exe" method="post"> 

7. <¡nput type="hidden" name="lsisScript" value="ar/script0.xis"> 

8. Ingrese su nombre <input type="text" name=nombre><br> 

9. <¡nput type=submit value="OK..."> 

10. </form> 

1 1 . </body> 

1 2. </html> 


En la línea 8 se observan las marcas html para ingresar el nombre del 
usuario que luego será pasado a la Script a través de la variable nombre. 

La visualización en el browser: 


Ü Script 0 - Microsoft Internet Explorer 


Archivo Edición Ver Ir a Favoritos Ayuda 

lo © 0 @ [*> 

Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos I 

Dirección |http:/71 27.0.0.1 /ar/ejercl .html 

Ingrese su nombre | Hipólita) 

OK... 
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El archivo scriptO.xis queda codificado: 

1. <lsisScript> 

2. <section> 

3. <!-- a continuación se almacena en el tag 13 el contenido de la 
variable nombre que fue pasado a través del cgi --> 

4. cfield action="cgi" tag="13">nombre</field> 

5. <display><pft>'Content-type: text/htm I' ,/#</pftx/d isplay > 

6. <display><p><center><uxh1 >Hello 
World !!!</h1x/ux/centerx/px/display> 

7. <!-- muestra el contenido del tag 13, que fue almacenado 
anteriormente --> 

8. <display><pft>'Su nombre es: ',v13</pftx/display> 

9. </section> 

1 0. </lsisScript> 

En la línea 3 y 7 a través de las marcas </- y --> se pueden colocar 
comentarios. 

En la línea 4, se le asigna a una variable de entorno cgi (campo vi 3) el 
dato que fue cargado en el formulario y almacenado en la variable nombre. 

La línea 8 muestra la leyenda “Su nombre es:” y visualiza el contenido del 
tag 13. Tener en cuenta que cuando se desea visualizar el contenido de alguna 
etiqueta, dicha información debe estar encerrada por las marcas <pft> y </pft>. 


El browser devuelve la siguiente pantalla: 


1 Sj wxis.exe en 127.0.0.1 - Microsoft Internet Explorer 

Archivo 

Edición Ver Ir a Favoritos 

Ayuda 





^ 0 0 


a- # 

1 

i V [ 

Atrás 

Adelante Detener Actualizar 

Inicio Búsqueda 

Favoritos Imprimir 

Fuente 

Correo Ec 
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Tareas en WXIS. 


Las tareas en WXIS se indican dentro de las marcas <do> y </do>. La 
estructura de la Script es: 


<do task=...> 


<parm name=...> ... </parm> 
<parm name=...> ... </parm> 


<loop> 

</loop> 


</do> 

Los parámetros indicados dependerán de la tarea (task=) a realizar. 

Por ejemplo, con la siguiente Script(xl.xis) se visualizan los siguientes 10 
registros correspondientes al MFN número. 25. La misma está preparada para 
ejecutarse desde el prompt del sistema, en el directorio donde se encuentra la 
base. 

1. <lsisScript> 

2. <section> 

3. <display>Base de datos CDS</display> 

4. <do task=mfnrange> 

5. <parm name=db>CDS</parm> 

6. <parm name=from>25</parm> 

7. <parm name=count>10</parm> 

8. <loop> 

9. <display><pft>#,mfn(5),</pftx/display> 

10. </loop> 

1 1 . </do> 

12. </section> 

1 3. </lsisScript> 


La línea 4 indica que la tarea(task) que se va a realizar es un mfnrange\ es 
decir, una tarea sobre un rango de mfn's. 

En la línea 5, a través del parámetro <parm name=db> se le indica a la 
Script el nombre de la Base de datos, para este caso: CDS. 

El parámetro especificado en la línea 6, indica a partir de qué número de 
registro debe ser considerado el rango a procesar. 

El parámetro de la línea 7 indica la cantidad de registros que deben ser 
procesados. 
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Notar que estos parámetros están definiendo la característica de la tarea 
'mfnrange'. 

Como se deben procesar varios registros, lo que se deba hacer por cada 
uno de ellos, debe indicarse dentro de un ciclo que se corresponde con las 
marcas <loop> y </loop>. Esto se refleja en las líneas 8, 9 y 10. El formato 
indicado entre las marcas <pft> y </pft> visualiza únicamente el MFN. 

La línea 1 1 cierra la tarea con la marca </do>. 


Nota: las marcas en la Script van de a pares: una de apertura y otra de 

cierre. 

< > y </.....> 


La ejecución del Script en el prompt: 



C:\curso>wxis IsisScript=xl .xis 
Base de datos CDS 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 
C:\curso> 


Resumiendo: 

La estructura de la Script para el entorno Web, se codifica: 

<lsisScript> 

<section> 

<display><pft> 'Content-type: text/html'/#</pftx/display> 


<do task= ... > 

<parm name= .. > </parm> Los parm ñame definen la 

<parm name= ...> </parm> característica de la tarea (task=) 

<parm name= ...> </parm> 


apunta 


</do> 


<loop> 

Dentro del loop, se accede a los datos del 
registro; por cada ocurrencia del ciclo se 

a cada uno de los registros recuperados. 

</loop> 
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</section> 

</lsisScript> 


Como se mencionó, ios <parm name=...> quedan sujetos a la tarea (task) 
definida. Para mayor información consultar el manual de referencia 
(reference.html). 

Se puede tener el nombre de la base en un campo y con un formato 
referenciarla. 

Ej. <parm name=db><pft>v32</pftx/parm> 



Si entre (1) y (2) no hay texto, la Script ignora la línea. 


Nota: entre las marcas de apertura y de cierre, siempre debe haber 
“algo”. 


A continuación se planeta la Script (scripl-l.xis) que muestra en el Web, 
todos los registros de la base CDS visualizando el MFN, las etiquetas 24 y 70. 

1. <lsisScript> 

2. <section> 

3. <display><pft>'Content-type: text/h t m I ’/#</pf t> </d i s p I ay > 

4. <do task=mfnrange> 

5. <parm name=db>c:\curso\cds</parm> 

6. <loop> 

7. <display><pft>'<b> , ,mfn(5)/, , </b><br> , ,v24/, , <br>', 

(v70/),'<br><p>7#</pftx/display> 

8. </loop> 

9. </do> 

10. </section> 

1 1 . </lsisScript> 

En la línea 5 se puede observar que para este caso se ha especificado la 
ruta o path en donde se halla la base de datos. 

La línea 7 dentro del formato contiene literales que corresponden a marcas 
html dado que el resultado o display se realiza en el browser. Esta instrucción se 
encuentra dentro del loop; esto significa, que se va a aplicar a cada registro que 
procese el bucle. 

Se invoca la Script a través del formulario ejerd-1.html: 


1. <html> 

2. <head> 

3. <title>Script 1-1 </title> 

4. </head> 

5. <body> 

6. <form action="/cgi-bin/wxis.exe" method="post"> 
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7. cinput type="h¡dden" name="lsisScript" value="ar/scrip1 -1 ,xis"> 

8. <input type=submit value="OK..."> 

9. </form> 

10. </body> 

1 1 . </html> 


El browser visualiza la siguiente pantalla: 


□ wxis.exe en 127. 

0.0 

.1 - Microsoft Internet Explorer 



Archivo Edición Ver Ir a Favoritos Ayuda 


$ o S B l^H 

Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 


Dirección |http://1 27.0.0.1 /cgi-bin/wxis.exe _^J 

Vínculos 

00001 

Experience with three vapour methods for measuring water potential in plants 
Barrs, H.D. Slatyer, R.O. 

00002 

The ControUed climate iii the plant chamber and its influence upon assimilation and transpiration 
Bosian, G. 

1 


A continuación se plantea el mismo ejemplo, pero no se especifica el path 
de la base sino que se determina a través de un archivo cipar. El mismo puede 
contener una línea por base en caso de ser necesario y para este caso, el mismo 
ha sido grabado con el nombre cds.cip. 

Ej: 

cds.*=c:\curso\cds.* 

gente. *=c:\isis\data\gente\gente.* 

Para una mejor visualización, los resultados son presentados en una tabla. 
La Script (scriptl.xis) queda codificada: 


1. <lsisScript> 

2. <section> 

3. <display><pft>'Content-type: text/html7#</pftx/display> 

4. <parm name=c¡par><pft>cat('ar/cds.cip , )</pftx/parm> 

5. <do task=mfnrange> 

6. <parm name=db>cds</parm> 

7. <parm name=count>10</parm> 

8. <loop> 

9. <displayxpft> 

10. '<table border=1 width="100%"> 

11. «ctrxtd rowspan="2" width="10%"> <bxcenter>', mfn(5)' 

</center></bx/td> 

12. <td>',v24,'</td> 

13. </tr> 

14. <tr><td>',(v70/),'</td></tr> 

15. </table><p>' 
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16. </pftx/display> 

17. </loop> 

18. </do> 

19. </section> 

20. </lsisScript> 


En el recuadro, se observa que la línea 4 contiene lo siguiente: 

cat('ar/cds.cip') 

La instrucción cat permite tomar como salida un archivo externo indicado 
por el formato (consultar manual de referencia del lenguage de formato). Para 
este caso, permite extraer del archivo cds.cip la ubicación de las bases de datos. 

De la línea 10 a 15, se presenta un formato de tabla para visualizar los 

datos. 


tabla: 


Mediante el browser se obtiene el mismo resultado pero visualizado en 


D wxis.exe en 127. 


Microsoft Internet Explorer 


JsJx. 


Archivo Edición Ver Ira Favoritos Ayuda 


Atrás 


Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 


Dirección | http: //1 27. 0. 0. 1 /cgi-bin/wxis. e 


Vínculos 


00001 


Expetience with three vapour methods for measuring water potential in plants 


Barrs, H.D. Slatyer, R.O. 


The Controlled elimate in the plant chamber and its influence upon assiniilation and 
00002 transpiration 
Bosian, G. 


Ejercicio N 9 2 


A continuación se plantea un formulario para mostrar un rango de registros. 
En el mismo se solicita el nombre de la base de datos, el primer y último número 
de MFN a visualizar .La codificación del formulario (ejerc2.html) se plantea: 


1. <html> 

2. <head> 

3. <title>Ejercicio N Q 2</title> 

4. </head> 

5. <body> 

6. <h1 ><center>Listado de Registros acotados</center></h1 ><p> 

7. <form action=7cgi-bin/wxis.exe" method="post"> 

8. <¡nput type="hidden" name="lsisScript" value="ar/script2.xis"> 


12 






9 . 


Ingrese el nombre de la base: <input type="text" name="base" 
size="10"xbr> 

10. Desde: <input type="text" name="from" size="2"> 

1 1 . Hasta: <input type="text" name="to" size="2"xbr> 

1 2. cinput type=subm¡t value="Procesar"> 

13. </form> 

14. </body> 

1 5. </html> 

En la línea 9 se solicita el nombre de la base y dicho valor se guarda en la 
variable base. 

La línea 10 permite ingresar el número de MFN por el que se debe 
comenzar. Este número se almacena en la variable from. 


La línea 1 1 requiere el último número de MFN a visualizar. En este caso, la 
variable que almacena este dato se denomina to. 


El browser interpreta el archivo de la siguiente manera: 




0 


Vínculos 

□ 

Listado de Registros acotados 

Ingrese el nombre de la base: [37 
Desde: [s Hasta: [3 

Procesar I 


D Ejercicio N° 2 - Microsoft Internet Explorer 


Archivo Edición Ver Ir a Favoritos Ayuda 


§ - O 3 

a 

(3 

c*> <S 

J 

Ir 

m 


Atrás Adelante Detener Actualizar 

Inicio 

Búsqueda 

Favoritos Imprimir 

Fuente 

Correo 

Edición 


Dire c ción | http: /ñ 27. 0. 0. 1 /ar/ejerc2. html 







£\ 


La Script que llama el formulario es script2.xis, cuyo código es: 


1. <lsisScript> 

2. <section> 

3. <display><pft>'Content-type: text/html7#</pftx/d¡splay> 

4. cfield action=cgi tag=50>base</field> 

5. <f ¡eld action=cgi tag=51>from</field> 

6. cfield action=cgi tag=52>to</field> 

7. <parm name=ciparxpft>cat('ar/cds.cip')</pftx/parm> 

8. <displayxpft>'<h1 xcenter>Registros recuperados</centerx/h1 xp>' 
</pftx/display> 

9. <do task=mfnrange> 

10. <parm name=dbxpft>v50</pftx/parm> 

11. <parm name=fromxpft>v51</pftx/parm> 

12. <parm name=toxpft>v52</pftx/parm> 

13. <loop> 

14. <displayxpft> 

15. 'ctable border=1 width="100%"xtrxtd rowspan="2" width="10%"> 
<bxcenter>',mfn(5)'</centerx/bx/tdxtd>',v24,'</tdx/tr> 
<trxtd>',(v70/),'</tdx/tr> </table><p>' 
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16. </pftx/display> 

17. </loop> 

18. </do> 

19. </section> 

20. </lsisScript> 


Las líneas 4, 5 y 6 reciben del formulario el nombre de la base de datos, el 
primer MFN y el último; y lo asignan a las etiquetas 50, 51 y 52 respectivamente. 
Este mecanismo se logra con la marcas <field act¡on=”cg¡” tag=nro_tag> y </field> 
vistas en el ejercicio anterior. 

En la línea 9 se plantea la tarea a realizar: mfnrange (sobre un rango de 
registros). 

En la línea 10 mediante <parm name=db> se indica el nombre de la base 
de datos que para este caso está almacenado en la etiqueta 50. Lo mismo se 
hace para el primer y último número de MFN en las líneas 11 y 12 
respectivamente. Esta información es interpretada por la tarea. 

Dentro del loop a cada registro procesado se le aplica el formato con 
marcación html que se muestra en la línea 1 5. 


El browser visualiza la siguiente pantalla como resultado de la operación: 


I □ wxis.exe en 127.0.0.1 - Microsoft Internet Explorer 


Archivo Edición Ver Ir a Favoritos Ayuda 

^ © Í3 ^ (I É*> á£ lír 3? 

Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 




Dirección | http: //1 27. 0. 0. 1 /cgi-bin/wxis. e 


Vínculos 


Registros recuperados 


Anti-transpirants as a research tool for the stiidy of the effects of water stress on plant 

00005 behaviour 

Gale, J. Poljakoff-Mayber, A. 

Measurements of plant carbón dioxide exchange by infra-red absorption under controlled 

00006 conditions and in the field 

Bourdeau, Philippe F. Woodwell, George M. 


00007 


Colorimetric determination of C02 exchange in field and laboratory 
Slavjk, B. Catsky, J. 


Comentarios 

Dentro de una Script se pueden incluir comentarios, los mismos deben 
estar encerrados entre las marcas </-- y -->. Por ejemplo: 

</- este es un modelo de --> 
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Utilizando formatos de Isis 


Si se desea utilizar, para visualizar los registros, los formatos que se 
diseñan en Isis, se tiene el inconveniente que los mismos no poseen marcación 
html y por lo tanto no existen saltos de línea en el resultado. Es por ello, que se 
puede invocar una instrucción que permite convertir los saltos de línea de lsis(/ y 
#) en una marca html. Esa instrucción es newline(‘marca_reemp!azo’) y se la debe 
incluir antes de invocar al formato (dentro del loop). 

Ej. <pft>newline( , <br> , ),@cds.pft</pft> convierte los saltos de línea (/,#) del 
formato cds.pft, en marcas html <br>. 


Variables del sistema. 

En la versión WWWIsis, las variables del sistema (vi 001 para Current, 
vi 002 para Total) se agregaban automáticamente a cada uno de los registros. En 
WXIS se debe indicar los campos que se quieren incluir a los registros 
procesados. La función que lo permite es: 

<field action=define tag=nro_de_tag>argumento</field>, donde argumento 
puede asumir los siguientes valores: 


lsis_Current 

Indice de la ejecución actual del <loop>. 

lsis_Total 

Total de veces posible para el <loop>. 

lsis_From 

Parámetro from del <loop>. 

lsis_To 

Parámetro to del <loop>. 

lsis_Lock 

Campo de almacenamiento del control de bloqueo de 
registros. 

lsis_Status 

Almacenamiento del estado de la ejecución de la tarea. 

Isisjtem 

Item de la lista. 

lsis_Value 

Cantidad de ítems calculados por el conteo de 
frecuencia. 

lsis_Key 

Llave actual. 

lsis_Posting 

Datos del posting actual. 

lsis_Postings 

Total de postings de la llave actual. 

Isisjtems 

Total de ítems en la lista. 

lsis_Errorlnfo 

Apuntador de error en la búsqueda. 

lsis_Keys 

Llaves para destacar texto. 
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lsis_MFN Número del campo de almacenamiento del MFN para 

exportación o importación de registros. 

lsis_RecordStatus Número del campo que contendrá el estado del 
registro. 


Manteniendo una correspondencia con WWWIsis, se podría asignar los 
mismos números a los tag, ej.: <field action=define 

tag= 1 00 1>lsis_ Current</f¡e!d>. 


Nota: los valores de los argumentos solicitados son cargados en los 
campos indicados con tag= 


A continuación se modifica el ejercicio anterior y se incorporan estos 
nuevos elementos. 

Si el usuario ingresa un número mayor para el primer MFN respecto del 
último, la Script deberá validar esta situación y hacer un tratamiento de error. Para 
este caso, se contempla en la Script un salto, en la línea de ejecución, a otra 
sección de código que realiza el tratamiento del error. 

El salto se programa con la marca <flow 
action=jump>nombre_de\_rótu\o</flow>. Cuando la Script llega a esta instrucción, 
se produce un salto en la ejecución del programa al segmento de código que 
comienza con el rótulo o etiqueta nombre_del_rótulo. En el sector donde se 
desea arribar con el salto, se indica la etiqueta con la marca 
</a¿>e/>nombre del rótulo </label>. 


Nota: Si el corte se produce dentro de la estructura <do> el salto debe 
encontrarse también dentro del </do>. 


En la mayoría de los casos se desea que la ejecución del programa no 
ingrese a las líneas de código que le suceden al área a la que se arribó con el 
salto. Es decir, es necesario indicarle a la Script que abandone la corrida. Para 
cortar la ejecución, se utiliza la marca <flow action=exit>a\go</flow>. Lo que se ha 
colocado entre las marcas <flow....> y </flow> no tiene efecto alguno en la Script; 
esto se hace porque entre las marcas siempre debe haber algo, de lo contrario la 
línea es ignorada. 

Además, se han incorporado variables del sistema, como ser: el número 
del MFN que se está procesando ( lsis_Current ), el número total de registros 
( lsis_Total ), el primer número de MFN con el cual se comienza el listado 
( lsis_From ) y el último MFN que se debe alcanzar ( lsis_To ). Estos valores son 
asignados a etiquetas que luego se utilizan en el formato para, como por ejemplo, 
indicar el número total de registros, el nombre de la base de datos que se está 
procesando y que registro -respecto del total- se está visualizando. 

Dada la longitud de las Script que se plantean, de ahora en más, los 
comentarios se encuentran dentro de la misma. 
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La Script (scrip2-1.xis) para este caso es la siguiente: 


1. <lsisScript> 

2. <section> 

3. <display><pft>'Content-type: text/html'/#</pft></display> 

4. <field action=cgi tag=50>base</field> 

5. <field action=cgi tag=51 >from</field> 

6. <field action=cgi tag=52>to</field> 

7. <parm name=ciparxpft>cat('ar/cds.cip')</pftx/parm> 

<!- la siguiente línea salta a la línea de código rotulada con el nombre 
ERROR, siempre y cuando se valide la situación que v51 (valor del From) 
es superior a v52 (valor del To) --> 

8. <flow action=jump><pft>if val(v51) > val(v52) then 'ERROR' 
fi</pftx/flow> 

9. <do task=mfnrange> 

10. <parm name=dbxpft>v50</pftx/parm> 

1 1 . <parm name=fromxpft>v51 </pftx/parm> 

12. <parm name=toxpft>v52</pftx/parm> 

</- las líneas siguientes cargan en las etiquetas 1001, 1002,1004 y 1005, 
los valores de Número actual del MFN, el límite del listado, el comienzo del 
mismo y el total de registros respectivamente --> 

13. cfield action=define tag=1001>lsis_Current</field> 

14. cfield action=define tag=1002>lsis_To</field> 

15. cfield action=define tag=1004>lsis_From</field> 

16. cfield action=define tag=1005>lsis_Total</field> 

1 7. <displayxpft>'<h1 xcenter>Listado de Registros 
acotados</centerx/h1 > <p>'</pftx/display> 

18. <loop> 

</- con anterioridad se asignó a la etiqueta 50 el nombre de la base 
de datos, este valor no es visto dentro del loop (está fuera del Scope), 
por ello es que en la línea siguiente se lo importa dentro del Scope del 
Loop y se lo asigna a la etiqueta 1003 -> 

19. cfield action=import tag=1003>50</field> 

20. <displayxpft>, 

<!- en la línea siguiente, si se está en el primer MFN se visualizan 
los datos del total de Registros y el nombre de la Base de datos. Para 
conocer si se está en el primer registro se pregunta si el registro 
actual (lsis_Current) es igual al Inicio (lsis_From) que fueron 
asignados a las etiquetas 1001 y 1004. El total de registros fue 
asignado a la etiqueta 1005 y el nombre de la base fue importado en 
la línea anterior en la etiqueta 1003 -> 

21. if vIOOl = v1004 then ’<h3>Total de Registros: ',v1005 ' — 
Base: ',v1003,'</h3xp>',fi, 


17 



22. ’ctable border=1 width="100%" bgcolor="#808664"xtr><td 
rowspan="2" w¡dth="1 0%"><font color="#FFFFFF"xbxcenter>' 
,mfn(5),'<br>'v1 001 ,'/',v1 002'</center></b></td><tdxfont 
coior="#FFFFFF">',v24,'</tdx/trxtrxtdxfont 
color="#FFFFFF">',(v70/),'</tdx/trx/tablexp>’ 

23. </pftx/display> 

24. </loop> 

25. </do> 

</- La siguiente línea detiene la ejecución del script ya que no se produce 
el error. Entre las marcas <flow> debe existir alguna expresión, de lo 
contrario toda la línea es ignorada . -> 

26. <flow action=exit>0</flow> 

</-- en las líneas siguientes se hace el tratamiento del error a partir de la 
designación del rótulo ERROR. --> 

27. <label>ERROR</label> 

28. <displayxh3xi>ERROR !!!, los valores DESDE y FIASTA est&aacute;n 
mal expresados</ix/h3> <px/display> 

29. <flow action=exit>1</flow> 

30. </section> 

31 . </lsisScript> 


Contemplando el requerimiento anterior (visualizar los registros del 5 al 7), 
el browser, visualiza la siguiente pantalla: 


Q wxis.exe en localhost - Microsoft Internet Explorer 


Archivo Edición Ver \j a Favoritos Ayuda 

ii <p o 0 ds ® f*> 


_ _ _ ü M 3 

Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 


Dirección | http: /7localhost/cgi-bin Avxis. e 


Hit Vínculos 


Listado de Registros acotados 

Total de Registros: 151 Base: cds 



Si se hubieran invertido los valores (From=7 To=5), el browser -tras el 
tratamiento del error por parte de la Script- visualiza lo siguiente: 
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wxis.exe en localhost - Microsoft Internet Explorer 

REI D| 

Archivo Edición Ver ir a Favoritos Ayuda 

Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 

m 

Dirección |http://localhost/cgi-bin/wxis.exe 

Vínculos 

ERROR !!!, los valores DESDE y HASTA están mal expresados 

□ 


Controlando la ejecución de la Script. 


Si se desea verificar la corrida de la script, se coloca al inicio de la misma 
las marcas <trace></trace>. La misma activa o desactiva el despliegue de la 
instrucción que está siendo ejecutada. Los modos posibles son normal(On), línea 
a línea(BR), o tabla(Table). 
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<field action—'cgi" tag="50">base</field> 

<field action—'cgi" tag="51">£rom</field> 

<field action="cgi" tag="52“>to</field> 

<parm name="cipar">cds. *=c:\curso\cds. * gente. *=c:\isis\data\gente\gente. *</parm> 

<flow action="junip"></flow> 

<do task="mfñrange"> 

<parm ñame— 'db">cds</parm> 

<parm name="from">5</parm> 

<parm name="to">7</parm> 

<field action=" define" tag="1001''>Isis_Current</field> 

<field action=" define" tag=“1002">Isis_To</field> 

<field action=" define" tag="1004">Isis_From</field> 

<field action=" define" tag="1005“>Isis_Total</field> 

Listado de Registros acotados 

<loop> 

<field action—'import" tag="1003">50</field> 

Total de Registros: 151 Base: cds 


Puede observarse en la figura el detalle de cada instrucción de la Script. 
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Búsquedas 


En los ejemplos siguientes se plantean situaciones de búsquedas. 


Ejercicio N g 3 


Comenzamos con un ejemplo sencillo de búsqueda. Se utiliza el formato de 
visualización visto en el ejercicio anterior. 

El formulario que se confecciona para solicitar la expresión de búsqueda es 
el siguiente: 

1. <htmi> 

2. <head> 

3. <title>Ejercicio N Q 3</title> 

4. </head> 

5. <body> 

6. <h1 ><center>Ejerciclo de B&uacute;squeda Nro 3!</center></h1 ><p> 

7. <form action="/cgi-bin/wxis.exe" method="post"> 

8. cinput type="hidden" name="lsisScript" vaiue="ar/script3.xis"> 

9. <b>lngrese la expresi&oacute;n de b&uacute;squeda: </bxinput 
type="text" name="expbus" size="20"xbr> 

10. cinput type="hidden" name="path" value="c:\curso\"xbr> 

1 1 . cinput type=submit value="Procesar"> 

12. c/form> 

13. c/body> 

14. c/html> 


En la línea 9 se solicita la expresión de búsqueda y se la pasa a la Script 
bajo la variable denominada expbus. 

En la línea 10 se pasa la ubicación de la base de datos a través de un 
campo oculto denominado path cuyo valor es c:\curso\. 


El browser visualiza la siguiente pantalla: 


Q Ejercicio N ! 3 - Microsoft Internet Explorer 


Archivo Edición Ver Ir a Favoritos Ayuda 


B M [m 

Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 


Dirección | http: //localhost/ar/ejerc3. html 


^ | Vínculos 

3 


Ejercicio de Búsqueda Nro 3! 


Ingrese la expresión de búsqueda: |p |ant 


Procesar 
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La script3.xis tiene la siguiente codificación: 

1 . clsisScript name=script3> 

2. <section> 

3. <display><pft>'Content-type: text/html'/#</pft></display> 

</- se asigna en la etiqueta 140 la expresión de búsqueda pasada a 
través de la variable expbus --> 

4. <field action=cgi tag=140>expbus</field> 

</- se asigna en la etiqueta 141 la ruta de la base de datos --> 

5. <field action=cgi tag=1 41 >path</field> 

6. <parm name=cipar><pft> 

7. 'cds.*=',v141 ,'cds.*',/ 

8. </pftx/parm> 

9. <displayxpft>'<h1 xcenter>Registros recuperados</centerx/h1 xh3> 

<center>Ejercicio Nro 3</centerx/h3xp>'</pftx/display> 

<!- la tarea que se va a realizar es búsqueda, es por ello que el task 
es search -> 

10. <do task=search> 

1 1 . <parm name=db>cds</parm> 

</- a través del siguiente parm ñame se asigna la expresión de búsqueda 
que fue almacenada en la etiqueta 140 -> 

12. <parm name=expressionxpft>v140</pftx/parm> 

1 3. <field action=define tag=1 001 >lsis_Current</field> 

1 4. <field action=define tag=1 002>lsis_Total</field> 

1 5. <field action=define tag=1 009>lsis_Errorlnfo</field> 

16. <loop> 

17. <displayxpft> 

18. 'ctable border=1 width="100%" bgcolor="#808664"xtrxtd 

rowspan="2" width="1 0%"xfont color="#FFFFFF"xbxcenter>' 
,mfn(5),'<br>'v1 001 ,'/',v1 002'</centerx/bx/tdxtdxfont 
color="#FFFFFF">',v24,'</tdx/trxtrxtdxfont 
color="#FFFFFF">',(v70/),'</tdx/trx/tablexp>' 

19. </pftx/display> 

20. </loop> 

<!- en la siguiente línea se evalúa si se han encontrado registros. Ello se 
logra verificando el Total de Registros que se almacenó en la etiqueta 
1002 -> 

21 . <displayxpft>if vi 002 = '0' then '<h3xi> No se encontraron registros 
para la expresi&oacute;n: >140,' </ix/h3>' fi</pftx/display> 

22. </do> 

23. </section> 

24. </lsisScript> 
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El browser visualiza lo siguiente como resultado de la expresión de 
búsqueda plant: 


Ej wxis.exe en localhost - Microsoft Internet Explorer 


Archivo Edición Ver ir a Favoritos Ayuda 

O 0 ffl ® 0’ i. ií & S 

Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 


BSD 



D irección | http: //localhost/cgi-bin/wxis. exe 


Registros recuperados 


00002 

1/8 


Ejercicio Nro 3 


The Controlled climate in tlie plant chamber and its influence upon assimilation and 
transpiration 


Bosian, G. 


00003 

2/8 


Control of conditions in tlie plant chamber: íully automatic regulation of wind velocity, 
temperatuie and relative humidity to conform to microclimatic field conditions 


Bosian, G. 




Si se hubiera ingresado el término planta, se visualiza lo siguiente: 


Q wxis.exe en localhost - Microsoft Internet Explorer in 


Archivo Edición Ver jr a Favoritos Ayuda 

<= O © ¿S @ £*> # M !?r M 

Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 


Registros recuperados 

Ejercicio Nro 3 

No se encontraron registros parala expresión: planta 


Nota: la tarea planteada en la Script es <do task=search> 

En el ejercicio siguiente, se crea un formulario en el cual se puede elegir el 
formato de visualización con el que se quieren presentar los registros 
encontrados. 

El formulario es el siguiente: 

1. <html> 

2. <head> 

3. <title>Ejercicio N Q 3-1 </title> 

4. </head> 

5. <body> 

6. <h1><center>Ejercicio de B&uacute;squeda k/centerx/hl ><p> 


D irección | http: //localhost/cgi-bin Avxis. exe 
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7. <form action="/cgi-bin/wxis.exe" method="post"> 

8. cinput type="hidden" name="lsisScript" value="ar/scrip3-1 ,xis"> 

9. <b>lngrese la expres¡&oacute;n de b&uacute;squeda: </bxinput 

type="text" name="expbus" size="20"xbr> 

10. <b>Formato de presentaci&oacute;n: </b> 

11. <select name="format"> 

12. <option value="1">Detallado</option> 

13. <option value="2">Corto</option> 

14. <option value="3">Titulo</option></select> 

1 5. <input type="h¡dden" name="path" value="c:\curso\"xbr> 

1 6. <input type=submit value="Procesar"> 

17. </form> 

18. </body> 

1 9. </html> 


A través de un select se le pasa a la Script la opción escogida por el 
usuario: Si eligió Detallado el valor asignado a la variable format es 1, 2 si su 
preferencia fue Corto y 3 si es por Título. 


El navegador visualiza la siguiente pantalla: 


Q Ejercicio N ! 3-1 - Microsoft Internet Explorer 


Archivo Edición Ver Ir a Favoritos Ayuda 

íll <= <> O B O @ ® 


B M [33 

Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 
jj Dirección | http: //localhost/ar/ejerc3-1 . html 


nii Vínculos 


Ejercicio de Búsqueda ! 


Ingrese la expresión de búsqueda: [pM~ 
Fonnato de presentación: | Detallado _^J 

Procesar 


La Script que invoca el formulario tiene la siguiente codificación (scrip3- 

l.xis): 

1 . clsisScript name=scrip3-1 > 

2. <section> 

3. <displayxpft>'Content-type: text/html7#</pftx/display> 

<!- se asigna a la etiqueta 140 el valor de la variable expbus pasada por 
el formulario que contiene la expresión de búsqueda --> 

4. <field action=cgi tag=140>expbus</field> 

<!- se asigna a la etiqueta 141 el valor de la variable path pasada por el 
formulario que contiene la ruta de la base de datos -> 

5. <field action=cgi tag=1 41 >path</field> 


<!- se asigna a la etiqueta 142 el valor de la variable format pasada por 
el formulario que contiene el formato elegido expresado en números (1,2 
o 3) --> 


24 








6. <field action=cgi tag=142>format</field> 
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<!- se indica un formato tipo cipar en la misma Script para indicar la 
ubicación de la base de datos y los formatos de visualización a utilizar. 
Notar que el formato3 corresponde a un formulario HTML. El valor de la 
etiqueta 141 fue pasado desde el formulario. --> 

7. <parm name=cipar><pft> 

8. 'cds.*=',v141 ,'cds.*',/ 

9. 'formato1=',v141'cds.pfty 

10. 'formato2=',v141'cds1.pft'/ 

1 1 . 'formato3=',v1 41 'titulo. htm'/ 

12. </pftx/parm> 

1 3. <displayxpft>'<h1 xcenter>Registros recuperados</centerx/h1xh3> 
<center>Ejercic¡o Nro 3-1</centerx/h3xp>'</pftx/display> 

</- la tarea a realizar es de búsqueda --> 

14. <do task=search> 

15. <parm name=db>cds</parm> 

16. <parm name=expressionxpft>v140</pftx/parm> 

1 7. <field action=define tag=1 001 >lsis_Current</field> 

18. <field action=define tag=1002>lsis_Totak/field> 

1 9. <field action=define tag=1 009>ls¡s_Errorlnfo</field> 

20. <loop> 

</- el formato elegido en el formulario y pasado a la Script no es 
visto dentro del loop (está fuera del Scope), es por ello que se 
necesita importarlo dentro del Scope del loop -> 

21 . <field action=import tag=1 42>1 42</field> 

22. <displayxpft>newline('<br>'), 

</- la siguiente línea evalúa que formato se debe tener en cuenta 
para la visualización de los registros, si es 1 o 2 directamente se 
invoca a los formatos respectivos. --> 

23. if vi 42 = '1 ' then @formato1 else if vi 42 = '2' then @formato2 fi fi, 

24. </pftx/dispiay> 

</- el formato 3 como se trata de un archivo en HTML, es 
necesario invocarlo con la instrucción cat. Pero antes de ello se 
debe indicar con la marca <htmlpft> que dicho formulario contiene 
un lenguaje de formato-> 

25. <displayxhtmlpftxpft>if vi 42 = '3' then cat('formato3') fi 

</pftx/htmlpftx/display> 

26. </loop> 

<!- la siguiente línea evalúa si en la búsqueda se han encontrado 
registros. --> 

27. <displayxpft>if vi 002 = '0' then '<h3xi> No se encontraron registros 
para la expresi&oacute;n: >140,'</ix/h3>' fi</pftx/display> 

28. </do> 

29. </section> 

30. </lsisScript> 
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Para visualizar los registros con el formato3 (Título) se emplea un archivo 
con marcas html (titulo.htm), que tiene además códigos de formato ISIS, que se 
identifican por estar entre las marcas [pft] y [/pft]. Todo lo incluido entre ellas será 
interpretado como funciones del lenguaje de formateo. Para que la script 
reconozca estas funciones se emplea <htmlpft> seguido de la función 
cat('formato3) que agrega línea a línea el contenido del archivo titulo.htm dentro 
de la script. 

El archivo titulo.htm tiene la siguiente codificación: 

1. <html> 

2. <head> 

3. <title>Formato T&iacute;tuio</title> 

4. </head> 

5. <body> 

6. <h5> 

7. [pft]'<table border=1 width="100%" bgcolor="#808664"> 

<tr> 

<td width="1 0%"><font color="#FFFFFF"xb><center>',mfn(5),' 
</center> </bx/td> 

ctdxfont color="#FFFFFF">',v24,'</td> 

</tr> 

</tablexp> 

8. [/pft] 

9. <brx/h5> 

10. </body> 

1 1 . </html> 


Colocar entre las marcas [pft][/pft] los códigos html para que el formato 
aparezca en una tabla; estos códigos figuran como literales incondicionales (entre 
comillas simples). 

Si se eligió el formato Detallado, el browser visualiza lo siguiente: 
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|Q wxis.exe en localhost - Microsoft Internet Explorer 

mmm 

Archivo Edición Ver Ir a Favoritos Ayuda 

o => © 0 @ í*> # üs SI 

Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 


1 

Dirección |http://localhost/cgi-bin/wxis.exe 1 

Vínculos 


Registros recuperados 

Ejercicio Nro 3-1 

0002 - The Controlled climate in the plant chamber and its influence upon assimilatíon and transpiration. 
Bosian, G. 1965. p. 225-232, illus. (Methodology of plant eco-physiology: proceedings of the Montpellier 
Symposium)Incl. bibl. 

KEYWORDS: Paper on: plant evapotranspiration . 

0003 - Control of conditions in the plant chamber: íully automatie regulation of wind velocity, 
temperature and relative humidity to conform to microclimatic field conditions. Bosian, G. 1965. p. 
233-238 , illus. (Methodology of plant eco-physiology: proceedings of the Montpellier Symposium)Incl. 
bibl. 

KEYWORDS: Paper on: plant physiology moisture temperature wind measurement and instruments 
ecosystems . 
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Si se eligió el formato Corto, el browser visualiza lo siguiente: 


Q wxis.exe en localhost - Microsoft Internet Explorer 


Archivo Edición Ver jr a Favoritos Ayuda 


o 

O 0 

A 

<3 

¡5 

M 




Jj Atrás 

Adelante Detener Actualizar 

Inicio 

Búsqueda 

Favoritos Imprimir 

Fuente 

Correo 

Edición 

Dirección 

I http: //localhost/cgi-bin/wxis. exe 







w 1 Vínculos 


Registros recuperados 

Ejercicio Nro 3-1 

MFN : 0002 

TlXLE : The Controlled climate in the plant chamber and íts influence upon assimilation and transpiration. 
AÜTHOR(S) : Bosian, G. 

IMPRINT: 1965. 

COLLATTON : p. 225-232, ilus. 

SERIES : Methodology of plant eco-physiology: proceedings ofthe Montpellier Symposium. 

NOTES : Riel. bibl. 

KEYWOEDS : Paper on: plant evapotranspiration . 


Si se elige el formato Título, la pantalla que se despliega es la siguiente: 


Q Formato T ítulo - Microsoft Internet Explorer 


Archivo Edición Ver Ir a Favoritos Ayuda 

o O 0 ifl © , M. 1?r M 

Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 

Dirección | http: //localhost/cgi-bin/wxis. exe 


Registros recuperados 


£ 


■^ill Vínculos 


Ejercicio Nro 3-1 


00002 

The Controlled chínate in the plant chamber and its influence upon assimilation and 
transpiration 


00003 

Contr ol of conditions in the plant chamber: fully automatic regulation of wind velocity, 
t emper ature and relative humidity to conform to micro climatic field conditions 


A continuación al mismo ejercicio se le incorpora un contador de autores, 
indicando para cada registro la cantidad existente; y luego un total al finalizar ia 
visualización. 
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El esquema lógico de la script es el siguiente: 

<do task=search> 

<parm name= > 

Definir campo cgi 9999 en cero 
<loop> 

Importar campo cgi 9999 

Reemplazar campo 9999 por (campo 9999 + nro. ocurrencias de 

v70) 

Mostrar datos del registro 
Exportar campo 9999 
</loop> 

Mostrar 'Cant. autores: campo 9999 


Notar que el contador de autores es un campo del scope-section definido 
fuera del scope-registro, que es importado e incrementado en cada ocurrencia 
del ciclo sumando la cantidad de autores; antes que termine el <loop> es 
nuevamente exportado al scope-section para que en el próximo ciclo sea 
importado sin perder la suma. De no exportarse el contador siempre será 
importado en cero. 

El formulario que se envía es similar al anterior, es por ello que aquí se 

omite. 

En la scrip3-2.xis se han resaltado las nuevas líneas agregadas; la 
codificación es la siguiente: 

1. clsisScript name=scrip3-2> 

2. <section> 

3. <display><pft>'Content-type: text/html'/#</pft></display> 

</-- se asigna a la etiqueta 140 el valor de la variable expbus pasada por 
el formulario que contiene la expresión de búsqueda -> 

4. <field action=cgi tag=140>expbus</field> 

<!- se asigna a la etiqueta 141 el valor de la variable path pasada por el 
formulario que contiene la ruta de la base de datos -> 

5. <field action=cgi tag=1 41 >path</field> 

<!- se asigna a la etiqueta 142 el valor de la variable format pasada por 
el formulario que contiene el formato elegido expresado en números (1,2 
o 3) --> 

6. <field action=cgi tag=142>format</field> 

</- se indica un formato tipo cipar en la misma Script para indicar la 
ubicación de la base de datos y los formatos de visualización a utilizar. 
Notar que el formato3 corresponde a un formulario HTML. El valor de la 
etiqueta 141 fue pasado desde el formulario. --> 

7. <parm name=cipar><pft> 

8. 'cds.*=',v141 ,'cds.*',/ 

9. 'formato1=',v141'cds.pft7 

10. 'formato2=',v141'cds1.pft7 
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1 1 . 'formato3=',v1 41 'titulo, htm'/ 

12. </pftx/parm> 

1 3. <display><pft>'<h1 xcenter>Registros recuperados</centerx/h1 xh3> 
<center>Ejercicio Nro 3-1</centerx/h3xp>'</pftx/display> 

<!- la tarea a realizar es de búsqueda -> 

14. <do task=search> 

15. <parm name=db>cds</parm> 

16. <parm name=expressionxpft>v140</pftx/parm> 

1 7. <field action=define tag=1 001 >lsis_Current</field> 

18. <field action=define tag=1002>lsis_Total</field> 

1 9. <field action=define tag=1 009>lsis_Errorlnfo</field> 

<!- en la siguiente línea se “ agrega ” una nueva etiqueta a la Script que 
servirá para el contador. Se le otorga una longitud de dos dígitos y se la 
inicializa en cero. La acción es add (incorporar) --> 

20. cfield action=add tag=9999xpft>f(0,2,0)</pftx/field> 

21. <ioop> 

<!- el formato elegido en el formulario y pasado a la Script no es 
visto dentro del loop (está fuera del Scope), es por ello que se 
necesita importarlo dentro del Scope del loop --> 

22. <field action=import tag=1 42>1 42</field> 

<!- dado que la etiqueta fue creada fuera del Scope, es necesario 
importarla dentro del loop y se le reasigna el mismo número -> 

23. <field action=import tag=9999>9999</field> 

</- la siguiente línea reemplaza el valor del campo 9999 dado que 

se actualiza el contador con la cantidad de autores del registro actual 
más el valor anterior del contador. Notar que la acción sobre el campos 

es replace -> 

24. cfield action=replace tag=9999><pft>f(val(v9999)+nocc(v70),2,0) 
</pftx/field> 

</-- la siguiente línea muestra el nro. de autores del registro -> 

25. <displayxpft>'<br>Nro. Autores: \f(nocc(v70),2,0),'<br>\ 

</- la siguiente línea evalúa que formato se debe tener en cuenta 
para la visualización de los registros, si es 1 o 2 directamente se 
invoca a los formatos respectivos. --> 

26. newiine('<br>'), 

27. if vi 42 = ’1 ' then @formato1 else if vi 42 = '2' then @formato2 fi fi, 

28. </pftx/display> 

<!- el formato 3 como se trata de un archivo en HTML, es necesario 
invocarlo con la instrucción cat. Pero antes de ello se debe indicar 
con la marca <htmlpft> que dicho formulario contiene un lenguaje de 
formato-> 
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29. <displayxhtmlpftxpft>if vi 42 = '3' then cat('formato3') fi 
</pftx/htmlpftx/display> 

<!- antes que finalice el loop, es necesario exportar el valor del 
contador para poder visualizar el Total, dado que fuera del Scope 
este campo no se visualiza. --> 

30. <field action=export tag=9999>9999</field> 

31. </loop> 

</- la siguiente línea evalúa si en la búsqueda se han encontrado registros. 
Además se visualiza la cantidad de autores. --> 

32. <display><pft>'Cant. autores: ’,v9999,if vi 002 = '0' then '<h3xi> No se 
encontraron registros para la expresi&oacute;n: ',v140,'</ix/h3>' 
fi</pftx/display> 

33. </do> 

34. </section> 

35. </lsisScript> 


El browser visualiza el siguiente resultado: 





. |fl| x| 

Archivo Edición Ver Ir a Favoritos Ayuda 



mm 

4 a © 0 

Atrás w Adelante * Detener Actualizar Inicio 

ú a j y 

Búsqueda Favoritos Historial Canales 
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Pantalla Correo 

completa 

Imprimir 

Dirección http://localhost/cgi-binA\ix¡s.exe 



w | Vínculos 

— 


Registros recuperados 


Nro. Autores: 1 


„„„„„ Tlie Controlled climate m the plaut chamber and íts influence upon assimilahon and 
00002 . .. 1 
transpirahon 


... continuación.... 

Nro. Autores: 2 


00026 Measurement of dry matter production of the plant cover 


Cant. autores: 11 


Concepto Scope: 

La estructura de una script define zonas en donde se alcanzan o se tiene 
acceso a las variables de ambiente WXIS y en otras, se acceden a las variables 
propias de los registros de la base de datos. Este concepto debe quedar bien 
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comprendido para programar una script; por esto es que se emplean las 
operaciones de <field action=import...> y <field action=export...> para pasar 
variables desde una zona (Scope) a otra. Las zonas en una script se pueden 
mencionar como scope-registro y scope-section. 

La primera es la zona comprendida entre las marcas <loop></loop>, en 
donde se hace referencia a los campos del registro. Si dentro de este Scope se 
precisa una variable del scope-section, se la debe importar. Asimismo, si al 
terminar el <loop> se necesita procesar una variable que es parte del scope- 
registro se la debe exportar para poder tratarla fuera de esta zona. Más adelante 
se verá también que las marcas <update></update> corresponden a esta zona. 

El scope-section es el que está por fuera del scope-registro, antes y 
después de las marcas <loop></loop>. 


Visualización del Diccionario 

A continuación se plantean ejercicios que permiten la visualización del 
Diccionario de Términos. 


Ejercicio N 9 4 


En el siguiente ejercicio se confecciona un formulario por el cual se ingresa 
el nombre de la base de datos, la primer palabra (o raíz) que se desea visualizar 
del diccionario y el límite de la visualización. La Script devuelve un página que 
muestra una lista de los términos del diccionario a partir de la palabra clave 
ingresada en Desde, y otorga la posibilidad de seleccionar del listado un término 
para buscar los registros relacionados. 

El ejerc4.html tiene la siguiente codificación: 

1. <html> 

2. <head> 

3. <title>Ejercicio Nro 4</title> 

4. </head> 

5. <body> 

6. <h1 ><center>B&uacute;squeda por Diccionario</center></h1 ><p> 

7. <form action="/cgi-bin/wxis.exe" method="post"> 

8. <input type="hidden" name="lsisScript" value="ar/script4.xis"> 

9. <h4>lngrese el nombre de la base: cinput type="text" name="base" 
size="10"x/h4> 

10. <h4>Desde: cinput type="text" name="from" size="20"x/h4> 

1 1 . <h4>Hasta: cinput type="text" name="to" size="20"x/h4> 

1 2. cinput type=submit value="Procesar"> 

13. c/form> 

14. c/body> 
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1 5. </html> 

Se puede observar que las líneas 9, 10 y 11 son similares a las que se han 
utilizado en ejercicio anteriores, pero en este caso lo que se va a ingresar en las 
variables from y to es texto. 


El browser visualiza la siguiente pantalla: 


ID Registro Nro 4 - Microsoft Internet Explorer 


Archivo Edición Ver Ir a Favoritos Ayuda 


o ^ O 0 @ ^ ÍV OI 

Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 


Dirección | http: /VI 27. 0. 0. 1 /ar/ejerc4. html 


Jj9J_xJ 



~E\ Vínculos 


D 


Búsqueda por Diccionario 


Ingrese el nombre de la base: |cds 
Desde: |methodoloay 
Hasta: | plañí 


Procesar 


Se solicita información de la base CDS y que la visualización del 
diccionario comience con el término methogology y finalice en plant. 


La Script que invoca este formulario, por un lado visualiza el listado del 
diccionario, pero por otro, invoca a otra Script que retorna el resultado de la 
búsqueda. Es por ello, que se observa que dentro de la script4.xis se prepara el 
formulario para que llame a la script5.xis. La explicación de la Script se 
encuentra dentro de la misma como líneas de comentario. La codificación es ia 
siguiente: 


1. <lsisScript> 

2. <section> 

3. <display><pft>'Content-type: text/html'/#</pft></display> 

<!- en las líneas siguientes se asigna el nombre de la base al campo 50, el 
from al campo 51 y el to al campo 52 --> 

4. <field action=cg¡ tag=50>base</fie!d> 

5. <field action=cgi tag=51 >from</field> 

6. <field action=cgi tag=52>to</field> 

7. <parm name=cipar><pft>cat('ar/cds.cip')</pft></parm> 

</-- La tarea es Keyrange, dado que se quiere visualizar un rango de los 
términos del diccionario --> 

8. <do task=keyrange> 

9. <parm name=dbxpft>v50</pftx/parm> 

10. <parm name=fromxpft>v51</pftx/parm> 

1 1 . <parm name=toxpft>v52</pftx/parm> 

</- si se desea que el diccionario sólo visualice 10 términos, entonces 
se deberá suprimir la línea anterior y reemplazarla por lo siguiente: 
<parm name=count> 1 0</parm> --> 
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<!- en la línea siguiente se define una etiqueta que se utiliza para 
almacenar la clave(término) actual que procesará el loop -> 

1 2. <field action=define tag=1 >lsis_Key</field> 

</- se define una etiqueta para guardar la cantidad de posting de la 
clave que procesará el loop -> 

13. <field action=define tag=2>lsis_Postings</field> 

14. <display><pft>'<h1><center>T&eacute;rminos del 
Diccionario</center></h1><p> <hrxh4>Selecc¡one un t&eacute;rmino 
y luego presione en Buscar</h4xp>'</pftx/d¡splay> 

<!- En las líneas siguientes preparo el formulario (con marcación html) 
que va a visualizar el listado de los términos que voy a utilizar en la 
búsqueda. Se invoca a la scriptó que me muestra el resultado de la 
búsqueda. La Script necesita contar con el nombre de la base de datos 
y con la expresión de búsqueda. El nombre de la base se lo pasa a 
través de un campo oculto denominado base y el valor es v50. El listado 
de términos se visualiza dentro de un select y el término que seleccione 
el usuario se almacena en un la variable claves. Este valor se debe 
pasar a la script5 como término a buscar. --> 

15. <displayxpft> 

16. '<form action=7cgi-bin/wx¡s.exe" method="post">\ 

1 7. ’<input type="hidden" name="lsisScript" va!ue="ar/script5.x¡s">\ 

18. '«dnput type="hidden" name=base value= , ",v50,'">', 

19. '<select name="claves"size="10">', 

20. </pftx/display> 

<!- el siguiente loop colocará dentro del select, los términos del 
diccionario --> 

21. <loop> 

22. <displayxpft> 

<!- la información que se presenta es la clave (término) actual - 

vi-, y la cantidad de posting -v2~. Se presenta como option valué 
porque es un elemento dentro del select, el cual puede ser elegido 
por el usuario --> 

23. 'coption value="',v1 vi [',v2,']</option>', 

24. </pftx/d¡spiay> 

25. </loop> 

<!- cuando finaliza el loop se ha terminado de colocar los términos del 
diccionario dentro del select, por lo tanto es necesario cerrar el select. 
Luego se agrega el botón de submit para enviar el término 
seleccionado por el usuario (guardado en la variable claves), y el 
nombre de la base de datos (variable base). Y por último se cierra el 
form -> 

26. <displayxpft> 

27. '<brx/seiectxinput type=submit name=buscar va!ue="Buscar">\ 

28. '</form>' 
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29. </pft> 

30. </display> 

31. </do> 

32. </section> 

33. </lsisScript> 

El navegador visualiza la siguiente pantalla: 


D wxis.exe en 127.0.0.1 - Microsoft Internet Explorer 


^JsJüJ 


Archivo Edición Ver Ir 

o =» O 

Atrás Adeli 


Favoritos Ayuda 

o 0 fá 

Detener Actualizar Inicio 


@ a- & 

Búsqueda Favoritos Imprimir 


Fuente 


Correo Edición 


Dirección | http: i /1 27. 0. 0. 1 /cgi-bin/wxis. e 



Términos del Diccionario 


Seleccione un término y luego presione en Buscar 


MICHAELI, A. [1] 
MICHIGAN [1] 
MICR0BI0L0GY [1] 
MICROCLIMATE [1] 
MICROCLIMATIC [1] 
MICR0P0 LITAN [2] 
MIDDLEMARCH [1] 
MIKHAIL0V, V.N. [2] 

Buscar 




En la pantalla anterior, el usuario eligió el segundo ítem del select; cuando 
oprime en el botón buscar, se llama a la script5.xis, cuya codificación es la 
siguiente: 

1. <lsisScript> 

2. <section> 

3. <display><pft>'Content-type: text/html7#</pft></display> 

<!- se recibe del formulario generado por la script4.xls, los valores 
correspondientes a la base de datos que se asigna al campo 50; y la clave 
para ejecutar la búsqueda que se la asigna al campo 5 1 --> 

4. <field action=cg¡ tag=50>base</field> 

5. <field action=cg¡ tag=51 >claves</field> 

6. <parm name=cipar><pft>cat('ar/cds.cip')</pft></parm> 

</- como en los casos anteriores la tarea a realizar es Search-> 

7. <do task=search> 

8. <parm name=dbxpft>v50</pftx/parm> 

9. <parm name=expressionxpft>v51</pftx/parm> 

1 0. <dispiayxpft>'<h1 xcenter>Resultado de la 
B&uacute;squeda</centerx/h1 > <p>'</pftx/display> 

</- se visualiza el término elegido; el cual, ha sido motivo de la 
búsqueda --> 

1 1 . <displayxpft>'<pxh4>T&eacute;rmino buscado: 

>51 ,'</h4>'</pftx/display> 
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12. <loop> 

13. <display><pft>'<table border=1 width="100%" 
bgcolor="#808664"xtrxtd rowspan="2" width="10%"xfont 
color="#FFFFFF"xbxcenter> , ,mfn(5)' 
</centerx/bx/tdxtdxfont color="#FFFFFF">',v24,'</tdx/tr> 
<trxtdxfont color="#FFFFFF">',(v70/),'</tdx/trx/tablexp>' 
</pftx/display> 

14. </loop> 

15. </do> 

16. </section> 

1 7. </lsisScript> 


La pantalla de visualización del resultado se omite presentarla, dado que es 
similar a los casos vistos. 

En el ejemplo anterior, se ha tenido que confeccionar dos Scripts para este 
procedimiento. ¿Se podría plantear el mismo ejercicio pero en una sola Script, es 
decir, unir la script4.xis y la script5.xis? Pues sí, y es lo que se desarrolla a 
continuación. 

Se pretende confeccionar una Script que pueda evaluar qué formulario la 
Invocó. Para ello, cada formulario deberá pasarle a la Script información a través 
de un campo oculto que le permita determinar qué debe procesar. A su vez, 
dentro de la Script, a través de las instrucciones de salto (<flow action...> se podrá 
controlar a qué sección debe pasar la ejecución). 

Se ve primero el formulario (ejerc4-1.html) que solicita la información de la 
base y qué términos del diccionario visualizar. La codificación es similar al anterior 
y aquí se ha destacado en negrita la línea que se ha agregado: 


1. <html> 

2. <head> 

3. <title>Ejercicio Nro 4-1 </title> 

4. </head> 

5. <body> 

6. <h1 xcenter>B&uacute;squeda por Diccionario</centerx/h1 xp> 

7. <form action="/cg¡-bin/wxis.exe" method="post"> 

8. <input type="hldden" name="lslsScript" value="ar/scrip4-1 .xis"> 

9. <h4>lngrese el nombre de la base: clnput type="text" name="base" 
size="10"x/h4> 

1 0. <h4>Desde: <input type="text" name="from" size="20"x/h4> 

1 1 . <h4>Hasta: <input type="text" name="to" slze="20"x/h4> 

12. cinput type="hidden" name=opcion value="DICCIONARIO"> 

1 3. clnput type=submit value="Procesar"> 

14. </form> 

15. </body> 

16. </html> 


En la línea 12 se le pasa a la Script el campo oculto opcion con el valor 

DICCIONARIO. 
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La scrip4-1.xis que unifica a las script4.xis y script5.xis, tiene la 
siguiente codificación: 

1. <lsisScript> 

2. <section> 

<!- esta Script une la Script4 y la Script5 --> 

3. <display><pft>'Content-type: text/htmr/#</pftx/display> 

</-- se almacenan en las etiquetas 50, 51 y 52 los valores pasados por el 
formulario correspondiente al nombre de la base de datos, desde donde se 
visualiza el diccionario y el límite de visualización respectivamente --> 

4. <field action=cgi tag=50>base</field> 

5. <field action=cg¡ tag=51 >from</field> 

6. <field action=cgi tag=52>to</field> 

<!- se asigna a la etiqueta 53 la clave(término del diccionario) que el usuario 
eligió para la búsqueda-> 

7. <field action=cg¡ tag=53>claves</field> 

</- se asigna a la etiqueta 34 la variable opción que pasan los formularios. 
Opción va a valer DICCIONARIO si proviene del primer formulario o 
BUSCAR si viene del formulario que solicita la búsqueda del término-> 

8. <field action=cg¡ tag=34>opcion</field> 

9. <parm name=ciparxpft>cat('ar/cds.cip')</pftx/parm> 

</- La próxima línea decide a qué parte de la Script se debe dirigir la 
ejecución. Este salto depende del valor de la etiqueta 34 (opción) pasada por 
los formularios. Dentro de la Script se tienen dos secciones: DICCIONARIO 
que corresponde a la Script4 y BUSCAR que corresponde a la Script5-> 

10. <flow action=jumpxpft>,if S(v34):'DICCIONARIO' then 'DICCIONARIO' else 
'BUSCAR' fi,</pftx/flow> 

<!--Aquí comienza el código de la script4. La explicación de cada línea 
se ha hecho en la scrlpt4.xls --> 

11. <label>DICCIONARIO</label> 

12. <do task=keyrange> 

13. <parm name=dbxpft>v50</pftx/parm> 

14. <parm name=fromxpft>v51</pftx/parm> 

15. <parm name=toxpft>v52</pftx/parm> 

1 6. <field action=define tag=1 >lsis_Key</field> 

17. <field action=define tag=2>lsis_Postings</fieId> 

18. <displayxpft>'<h1 xcenter>T&eacute;rminos del Diccionario</center> 
</h1xp> <hrxh4>Seleccione un t&eacute;rmino y luego presione en 
Buscar</h4xp>'</pftx/display> 
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<!- Notar que aquí en vez de invocar a la script5.xis, se llama a si misma, 
es decir: scrip4-1 ,xis-> 

19. <displayxpft> 

20. '<form action="/cgi-bin/wx¡s.exe" method="post">',/ 

21 . '<input type="hidden" name="ls¡sScript" value="ar/scrip4-1 ,xis">',/ 

22. '<input type="hidden" name=base value="',v50, 

23. '<select name="claves"size="10">',/ 

24. </pftx/display> 

25. <!oop> 

26. <displayxpft>'<option value='",v1 vi [',v2,']</option>', 
</pftx/display> 

27. </loop> 

<!- A diferencia de la script4.xis, aquí se envía al mismo formulario un 
campo oculto de nombre opcion con el valor BUSCAR, para que la 
próxima vez que ingrese a la Script, se dirija a la sección rotulada 
BUSCAR. -> 

28. <displayxpft> 

29. '<brx/select>',/ 

30. '<¡nput type="hidden" name=opcion value="BUSCAR">',/ 

31 . '<input type=subm¡t value="Buscar">',/ 

32. '</form>'</pftx/display> 

33. </do> 

34. <flow action=exit>1</flow> 

<!- aquí finaliza la Script4 --> 

<!-- aquí comienza la Scripts. La explicación se dio en la script5.xls --> 

35. <label>BUSCAR</label> 

36. <do task=search> 

37. <parm name=dbxpft>v50</pftx/parm> 

38. <parm name=expressionxpft>v53</pftx/parm> 

39. <d¡splayxpft>'<h1xcenter>ResuItado de la 
B&uacute;squeda</centerx/h1xp>'</pftx/display> 

40. <displayxpft>'<pxh4>T&eacute;rm¡no buscado: 
',v53,'</h4>'</pftx/display> 

41. <loop> 

42. <displayxpft>'<table border=1 width="100%" 
bgcolor="#808664"xtrxtd rowspan="2" width="10%"xfont 
color="#FFFFFF"xbxcenter>',mfn(5)' </centerx/bx/tdxtdxfont 
color="#FFFFFF">',v24,'</tdx/trxtrxtd> <font 
color="#FFFFFF">',(v70/),'</tdx/trx/tablexp>' </pftx/display> 

43. </loop> 

44. </do> 

<!- aquí finaliza la Script5 --> 

45. </section> 

46. </lsisScript> 
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Ordenamiento de registros en la visualización 


Cuando el browser devuelve los registros como resultado de una 
búsqueda, los mismos son visualizados en forma ascendente por número de 
MFN. Si se desea invertir el orden de visualización, es decir, en forma 
descendente, se debe incluir en la Script (para este caso en la sección de la 
scripS.xis antes del loop) la siguiente marca: 

<parm name=reverse>On</parm> 

Ahora se intenta obtener el resultado de la búsqueda ordenada o 
clasificada alfabéticamente por título. 

Los retoques para este cometido se harán en la porción de código de la 
Script correspondiente a la visualización del resultado de la búsqueda: sección 
BUSCAR de la script 4-1 .xis. 

Antes de visualizar los registros encontrados, se debe cargar el resultado 
de la búsqueda en una lista. La misma se crea con un loop, con la siguiente 
marca: 


<list action=load type=sort><pft>v24, ' A n',mfn(0)</pftx/list> 

La acción es: cargar un lista tipo ordenada. Cada ítem de la misma 
contendrá el título propiamente dicho y un subcampo n que alojará el MFN del 
registro actual que se procesa dentro del loop. ¿Cómo opera? Dentro del loop 
carga la lista y la ordena por el campo 24 (título) y agrega el subcampo n que 
contiene el MFN de ese título, que permitirá referenciar al registro para obtener el 
resto de los datos necesarios en la visualización. 

Luego de la carga de la lista se debe definir una nueva estructura con la 
tarea task=list de manera que se pueda obtener cada elemento de la lista 
(cargada previamente). 

Antes de ello, se debe asignar cada elemento de la lista a un nuevo tag que 
será usado en el loop de visualización; para este caso se ha asignado el tag=1. 
Se logra con la siguiente instrucción: 

<field action=define tag=1 >lsis_ltem</field> 

Dentro del loop, para visualizar los registros, se utiliza un 
ref([v1003]val(v1 A n), formato). [Recordar que vi corresponde a cada item de la 
lista ordenada.] 

En la siguiente scrip4-2.xis únicamente se ha documentado lo nuevo: 

1. <lsisScript> 

2. <section> 

3. <display><pft>'Content-type: text/html7#</pft></display> 

4. <field action=cgi tag=50>base</field> 

5. <field action=cgi tag=51 >from</field> 

6. <field action=cg¡ tag=52>to</field> 

7. <field action=cgi tag=53>claves</field> 

8. <field action=cgi tag=34>opcion</field> 

9. <parm name=cipar><pft>cat('ar/cds.cip')</pft></parm> 
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1 0. <flow action=jumpxpft>,if S(v34):'DICCIONARIO' then 'DICCIONARIO' else 
'BUSCAR' fi,</pftx/flow> 

11. <label>DICCIONARIO</label> 

12. <do task=keyrange> 

13. <parm name=dbxpft>v50</pftx/parm> 

14. <parm name=fromxpft>v51</pftx/parm> 

15. <parm name=toxpft>v52</pftx/parm> 

1 6. <field action=define tag=1 >lsis_Key</field> 

17. <field action=define tag=2>lsis_Postings</field> 

18. <displayxpft>'<h1 xcenter>T&eacute;rminos del Diccionario</center> 
</h1xp> <hrxh4>Seleccione un t&eacute;rmino y luego presione en 
Buscar</h4xp>'</pftx/display> 

19. <displayxpft> 

20. '<form action="/cgi-bin/wxis.exe" method="post">',/ 

21 . ’<input type="hidden" name="lsisScript" value="ar/scrip4-1 ,xis">',/ 

22. '<input type="hidden" name=base value='",v50, 

23. '<select name="claves"size="10">',/ 

24. </pftx/display> 

25. <loop> 

26. <displayxpft>'<option value="',v1 vi ,' [',v2,']</option>', 
</pftx/display> 

27. </loop> 

28. <displayxpft> 

29. '<brx/select>',/ 

30. ’<input type="hidden" name=opc¡on value="BUSCAR">',/ 

31 . '<input type=submit value="Buscar">',/ 

32. '</form>'</pftx/display> 

33. </do> 

34. <flow action=exit>1</flow> 

35. <label>BUSCAR</label> 

36. <do task=search> 

37. <parm name=dbxpft>v50</pftx/parm> 

38. <parm name=expressionxpft>v53</pftx/parm> 

39. <displayxpft>'<h1xcenter>Resultado de la 
B&uacute;squeda</centerx/h1xp>'</pftx/display> 

40. <displayxpft>'<pxh4>T&eacute;rmino buscado: 
',v53,'</h4>'</pftx/display> 

<!- la siguiente línea carga en una lista el campo 24 (título) y crea un 
subcampo n dentro del item de la lista para asignarle el número de MFN- 
> 

41. <loop> 

42. <list actiondoad 
type=sortxpft>mpl,v24,mpl, ,A n',mfn(0)</pftx/list> 

43. </loop> 

</- ahora que se tiene la lista cargada, se procede a la visualización. 
Para ello se crea una nueva tarea: list, dentro de la tarea search. --> 
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44. <do task=list> 

45. <field action=def¡ne tag=1 >lsis_ltem</field> 

<!- dentro de un loop se hace el tratamiento de la lista para 
visualizar los registros encontrados ordenados por título. --> 

46. <loop> 

<!- como se está dentro de otra tarea (otro Scope) es 
necesario importar el nombre de la base de datos que se 
utiliza para poder hacer el reí. --> 

47. cfield action=import tag=1003>50</field> 

48. <displayxpft>ref([v1003]val(v1 A n),'<table border=1 

width="100%" bgcolor="#808664"xtr><td rowspan="2" 
width="10%"xfont 

color="#FFFFFF"xbxcenter>',mfn(5)'</centerx/bx/td> 
<tdxfont color="#FFFFFF">',v24,'</tdx/tr> <trxtdxfont 
color="#FFFFFF">',(v70/),'</tdx/trx/table><p>'),'<br>' 
</pftx/display> 

49. </loop> 

50. </do></-- fin do task=list --> 

51 . </do></-- fin do task=search --> 

52. </section> 

53. </lsisScript> 


Notar que para poder referenciar cada registro a la base CDS, antes se 
debe importar al Scope la base mencionada mediante la instrucción <field 
action=import tag=1003>50</field>, que asocia a la misma al tag 1003 y es 
utilizada luego en la expresión ref. 

Se tiene que recurrir a este método (de importación) dado que el proceso 
de visualización se genera a partir de un nuevo <do> anidado. Y dentro del mismo 
la base cds no es vista. 
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Actualización: Creación, Modificación y Baja de Registros 


La actualización de las bases de datos a través de WXIS opera con 
bloqueo de registros de una manera muy sencilla. Esta metodología es necesaria 
en un ambiente de trabajo multiusuario y cliente/servidor, en el que se debe 
contemplar la posibilidad de que dos clientes pretendan acceder al mismo 
registro. Bajo esta circunstancia se debe permitir que solo uno tome posesión del 
registro, impidiendo que otros lo accedan hasta tanto no quede liberado por el 
primero. Este mecanismo es muy simple desde el punto de vista del programador, 
y más aún para la creación de nuevos registros que es totalmente transparente, 
ya que el mismo WXIS se encarga del bloqueo. 

Para tomar posesión de un registro se debe indicar una llave que identifica 
al usuario y el tiempo máximo que dispone de la exclusividad del mismo. Si el 
usuario bloquea un registro y por cualquier eventualidad se interrumpe la 
comunicación, ei registro quedará disponible luego que se cumpla este tiempo. 
Pero si el usuario retoma la comunicación y el registro continua bloqueado, wxis 
evalúa si la llave almacenada en el registro coincide con la del usuario para 
permitirle nuevamente tomar posesión del mismo. 

Los datos del bloqueo (llave y tiempo de expiración) son almacenados en 
un nuevo campo que se agrega al registro: vi 101 (en general), que en el 
subcampo A i guarda la llave y en A t el tiempo disponible para el bloqueo. 

En ei ejercicio que se verá, se emplea un formulario web para la carga de 
datos. La script programada permite altas, bajas y modificaciones considerando la 
estrategia de bloqueo indicada anteriormente. 

Con WXIS se dispone de la información del ambiente del equipo que está 
haciendo la llamada al server. Existe una serie de variables que se pueden 
solicitar, por ej. Número de IP de la máquina del cliente, el navegador, etc. Con 
esta información se puede establecer la llave para identificar unívocamente al 
usuario; una opción podría ser IP+Fecha del sistema. Para el caso que se verá, el 
cliente ingresará la clave como si fuera un password. 


Ejercicio N 9 5 

A continuación se crea un formulario para recolectar datos y tomar algunas 
de las acciones siguientes: NUEVO (crear un nuevo registro), EDICION (modificar 
un registro) o BORRAR (eliminar un registro). 

La codificación del formulario es la siguiente: 

1. <html> 

2. <head> 

3. <title>Sistema de Actualización de Base de Datos</title> 

4. </head> 

5. <p align="center"xfont size="5"xemxstrongxu>Sistema de 

6. Actua!izaci&oacute;n de Base de Datos</ux/strongx/emx/fontx/p> 

7. <form action=7cgi-bin/wxis.exe" method="post"> 

8. cinput type="hidden" name="lslsScript" value="ar/script6.xis"> 
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9. <center> 

1 0. <p><font s¡ze="4"xstrong><u>Opciones</u></strong></fontx/p> 

1 1 . <p>Nuevo <input type="radio" checked name="opcion" 
value="NUEVO"x/p> 

12. <p>Edición <input type="radio" name="opcion" 
value="EDICION"> 

13. Borrar <input type="radio" name="opcion" value="BORRAR"> 

14. MFN: cinput type=text name=id size=10x/p> 

15. <p>Clave: <input type="password" size="20" name="clave"x/p> 

1 6. <pxinput type="submit" value="Continua"> </p> 

17. </center> 

18. </form> 

19. </body> 

20. </html> 


A través de las líneas 1 1, 12 y 13 se indica cual es la acción que se desea 
realizar. Si se indica EDICIÓN o BORRAR, se deberá ingresar el MFN. A través 
de este formulario se invoca a la script6.xis que toma alguna de las tres acciones 
que aquí se proponen dependiendo del valor cargado en la variable opcion. Si el 
usuario eligió Nuevo, entonces opcion=NUEVO, si prefirió Edición, 
opcion=EDICION y opcion=BORRAR para el caso que haya seleccionado Borrar. 
Este variable opcion, más la clave y el mfn, son pasados a la Script. 


La pantalla de visualización en el browser del formulario es la siguiente: 

-|g| x 


£ 


Vínculos 

Sistema de Actualización de Base de Datos 

Opciones 

Nuevo F 

Edición r Borrar r MFN: | 

Clave: | 

Continua | 


D Sistema de Actualización de Base de Datos - Microsoft Internet Explorer 


Archivo Edición Ver Ir a Favoritos Ayuda 


<> => o □ 

Atrás Adelante Detener Actualizar 

A 

Inicio 

<a 

Búsqueda 

Favoritos Imprimir 

Fuente 

& 

Correo 

3 

Edición 


Dirección |http:/V1 27.0.0.1 7at7ejeic6.html 







djj 
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Seguimiento lógico del ejercicio: 

• A partir de ejerc6.htm se llama al Script6.xis 




Inicio de Script6.xis 
Según opcion hacer: 

• ALTA A 


Presentación de formulario. ht 


m 


• EDICION 

Presentación de formulario. ht 
Se carga la llave y mfn 
Si el registro está disponible 
se bloquea el registro 
Sino 

'Error !’ I 




• BAJA 

Presentación de formulario. htlm 
Se carga la llave y mfn 
Si el registro está disponible 
se bloquea el registro 
Sino 

'Error !' 


7 


En la presentación de formulario.htm se cargan o 
muestran los datos del registro (Título, Autor y 
Notas). Esta página web volverá a llamar a la 
scriptó.xis que también tendrá definida una variable 
'oculta' opcion que valdrá: 

OK_ALTA: Si la opción anterior fue ALTA 

OK_EDICION: Si la opción anterior fue EDICION 

OK_BAJA: Si la opción anterior fue BAJA 

La llave y el mfn también son guardados en campos 
ocultos 


• OK_ALTA 

Actualización de la base de datos 


• OK_EDICION 

Se carga la llave y mfn 
Se actualiza la base 
Se evalúa Si el código de error = 0 
'Operación exitosa' 

Sino 

'Error, no se pudo actualizar el registro' 

• OK_BAJA 

Se carga la llave y mfn 
Se actualiza la base 
Se evalúa Si el código de error = 0 
'Operación exitosa' 

Sino 

'Error, no se pudo actualizar el registro' 
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Creación de registros (NUEVO) 


La script6.xis recibe el valor opcion y dependiendo de él, deriva la 
ejecución de la Script a distintas zonas codificadas para tal fin. En primer término 
se verá el código correspondiente para el tratamiento de la opción NUEVO: 

1. <lsisScript> 

2. <section> 

3. <display><pft>'Content-type: text/html7#</pft></display> 

</- en la próxima línea se guarda el nombre de la Script-> 

4. <field action=cg¡ tag=5000>lsisScript</field> 

</- en la próxima línea se guarda la opcion que se pasa del formulario-> 

5. <field action=cgi tag=5001 >opcion</field> 

</- en la próxima línea se guarda la llave pasada por el formulario-> 

6. <field action=cg¡ tag=5002>clave</field> 

</- en la próxima línea se guarda el numero de MFN pasado por el 
formulario-> 

7. <field action=cg¡ tag=6001 >id</field> 

</- en la próxima línea se crea una nueva variable para indicar el lugar de 
la base de datos-> 

8. <field action=add tag=3030xpft>'c:\curso\'</pftx/field> 

</- se indica el cipar para los caminos de las bases de datos-> 

9. <parm name=cipar> 

10. <pft>'cds.*='v3030'cds.*7</pftx/parm> 

<!- se evalúa el valor de opcion y dependiendo de él se hace un salto dentro de 
la Script a los apartados NUEVO, EDICION o BORRAR. Cuando la script es 
invocada desde forumulario.htm, la variable opcion contiene OK_NUEVO, 
OK_EDICION u OK_BORRAR que son las secciones de la script que terminan 
de procesar la opción -> 

1 1 . <flow action=jumpxpft>v5001 </pftx/flow> 

<!--Aqui comienza la opcion NUEVO --> 

12. <label>NUEVO</label> 

</- lo único que se debe realizar en NUEVO es pasar el control al 
formulario que se encarga de colectar los datos para luego grabarlo en la 
base. Ese formulario se denomina formulario.htm. El mismo cuenta con 
lenguaje de formateo en su interior, es por ello que se han agregado las 
marcas htmlpft y se lo habilita a través de la instrucción cat. 

Posteriormente el formulario invocará nuevamente a la scrlpt6.xls para 
realizar el tratamiento de OK_NUEVO-> 


Al 




13. <display><htmlpft><pft>cat('ar/formulario.html')</pft></htmlpft></display> 

1 4. <flow action=exit>1 </flow> 

<!— aquí finaliza la opcion NUEVO --> 

El archivo formulario.htm presenta un formulario para el ingreso de datos 
(Título, Autor y Notas). Así mismo es empleado para las opciones de EDICION y 
BORRAR, donde mostrará el contenido de estos campos. 


El browser visualiza la siguiente pantalla: 


D Nuevo Registro - Microsoft Internet Explorer 





- \&\ x| 

Archivo Edición Ver Ir a Favoritos Ayuda 

^ 4 O 0 (Si 0 


M. 




Atrás Adelante Detener Actualizar Inicio Búsqueda 

Favoritos Imprimir 

Fuente 

Correo 

Edición 

Dirección |http://1 27.0.0.1 /cgi-bin/wxis.exe 





d Vínculos 


□ 


Niie\’o Registro 


□ 

d 


Este formulario vuelve a llamar a la script6.xis. Notar en el código de la 
página que se vuelve a definir la variable opcion que contendrá OK_NUEVO, 
OKJEDICION y OK_BORRAR para terminar de procesar la opción. 

El código del mismo es: 

1. <html> 

2. <head> 

3. <title>Nuevo Registro</title> 

4. </head> 

5. <form action="/cgi-bin/wxis.exe/"> 

6. <¡nput type="hidden" name="lsisScript" value="ar/script6.xis"> 

</- es necesario pasarle nuevamente a la Script la llave y el número 
de MFN. Esos datos se pasan a través de campos ocultos. Para el 
caso de Nuevo, el valor correspondiente a la etiqueta 6001 es nulo-> 

7. cinput type="hidden" name="clave" value="[pft]v5002[/pft]"> 

8. cinput type="hidden" name="id" value="[pft]v6001 [/pft]"> 

</- Aquí el valor de opcion depende del valor de la etiqueta 5001 
definida en la script6.xls y ese mismo valor indicará el flujo en la 
ejecución de la script6.xls cuando vuelva a ser ejecutada. 

IMPORTANTE: notar como son asignados los valores para el 
campo oculto opcion. Tener presente las Comillas Dobles!!! son 
parte de las literales --> 

9. cinput type="hidden" name="opcion" value= 

1 0. [pft]if v5001 = 'NUEVO' then '"OK_NUEVO"' fi[/pft] 

1 1 . [pft]if v5001 = 'BORRAR' then '"OK_BORRAR"' fi[/pft] 

1 2. [pft]if v5001 = 'EDICION' then '"OK_EDICION"' fi[/pft]> 


Titulo: iMethodologhy in reproduction 


Autor: 


Barner, Anthony 
M adson, Henry 


Notas: 

0K 


IVery |mportant 


48 





<!- El título que se visualice en el formulario también depende del 
valor de la etiqueta 5001 --> 

1 3. <p aiign="center"xfont size="5"><em><strong><u> 

14. [pftjif v5001 = 'NUEVO' then 'Nuevo Registro' fi[/pft] 

15. [pftjif v5001 = 'BORRAR' then 'Eliminaci&oacute;n del Registro' fi[/pft] 

16. [pftjif v5001 = 'EDICION' then 'Edici&oacute;n de Registro' fi[/pft] 

1 7. </u></strong></em></fontx/p> 

<!-A continuación se presenta una entrada de texto para que se 
ingrese el Título; notar que este valor muestra el contenido de la 
etiqueta 24 del registro, que para opcion=NUEVO, estará vacío, pero 
para EDICION y BORRAR mostrará el valor del campo. --> 

18. Titulo: <input type="text" name="titulo" size=50 value=" 

[pft]v24[/pft]"> <br> 

</-- Lo mismo se indica para el caso del autor. Aquí se utiliza un 
elemento textarea para poder ingresar en cada línea un autor, así 
también mostrará el campo v70 para las opciones EDICION y 
BORRADO notar que se ha encerrado entre paréntesis la etiqueta v70 
para indicar que es un campo repetible; y de haber más de un autor, 
los mismos se visualizan uno por renglón .. --> 

19. Autor: ctextarea name="autor" cols="50" 
rows="3">[pft](v70/)[/pft]</textareaxbr> 

</-- se solicita también, un campo para notas. -> 

20. Notas: <input type="text" name="notas" size=50 
value="[pft]v50[/pft]"xbr> 

</- NOTA: La presencia de las etiquetas v24, v70 y v50 son para 
visualizar los valores de dichos campos para el caso de EDICION y 
BORRAR, para NUEVO estos campos están vacíos. El submit llama 
nuevamente a la scrlpt6.xls para terminar la opción-> 

21 . cinput type="submit" value="OK"> 

22. </form> 

23. </body> 

24. </html> 


Al salir del formulario.htm, se ejecuta nuevamente la script6.xis que trae 
el valor OK_NUEVO dentro de la variable opcion. Es por ello que la parte de 
código de la script que se ejecuta es la rotulada con OK_NUEVO y que 
corresponde al grabado en disco del nuevo registro. El código de esa porción de 
la script es la siguiente: 

<!--Aqu¡ comienza la opcion OK_NUEVO en la script6.xis--> 

15. <labei>OK_NUEVO</label> 

</■ — se indica la tarea para cargar el nuevo registro, la misma es: . --> 

16. <do task=update> 
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</■ — se indica la base en la cual se carga el nuevo registro --> 

17. <parm name=db>cds</parm> 

18. 

</- se indica New como parámetro de mfn ya que se trata de un 
nuevo registro -> 

19. <parm name=mfn>New</parm> 

<!- se explícita la fst que se utiliza para invertir el registro. La misma 
será utilizada al momento de grabar el registro y de esta forma se 
actualiza el archivo invertido. Se podría haber indicado las líneas de la 
fst. Para este caso como ya se cuenta con el archivo cds.fst, se lo 
carga con la instrucción cat. --> 

20. <parm name=fst><pft>cat('cds.fst')</pft></parm> 

</- se define un campo para almacenar el estado del registro en la 
base de datos( información que brinda el lsis_Status). Este dato sirve 
luego para chequear si la operación de grabación fue exitosa. --> 

21 . <field action=define tag=1 1 02>lsis_Status</field> 

</-- se indica el proceso de actualización en la base de datos. -> 

22. <update> 

<!- todo lo que figure dentro del update se va a grabar en la base 
indicada y en el nuevo MFN. Se necesita traer los datos que se 
cargaron en el formulario y que se encuentran en el cgi. Si se los 
lee dentro del update, no se los necesita importar. También se los 
podría traer fuera del scope-update pero deberían ser importados. - 


<!- Se carga en el tag 24 el valor pasado por el formulario en el 
campo titulo --> 

23. <field action=cg¡ tag=24>titulo</field> 

<!- Se carga en el tag 70 el valor pasado por el formulario en el 
campo autor --> 

24. <field action=cg¡ tag=70>autor</field> 

</■ — En el textarea del formulario se cargó en líneas distintas un 
autor diferente. Si se intenta almacenar la información tal cual se 
pasa del formulario, en la base de datos todos los autores 
cargadas se encontrarán en una sola ocurrencia. Para evitar esto 
es necesario indicarle que cada Enter (CR) debe ser tratado como 
una nueva ocurrencia dentro del campo autor. Es decir, se debe 
tratar la repetibilidad del campo autor antes de almacenarlo. Para 
ello se reemplaza lo del campo 70 por un formato, indicando un 
nuevo argumento en el field con el parámetro split, que le indica 
que cada vez que encuentre un CR, lo reemplace por una nueva 
ocurrencia. -> 

25. <field action=replace tag=70 split=occ><pft>(v70/)</pftx/field> 
</- se almacena el campo notas --> 
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26. <field action=cgi tag=50>notas</field> 

</- Como el registro es nuevo, no es necesario pasar la llave ya 
que el bloqueo lo maneja internamente wxis. Si se debe indicar 
cuál va a ser el estado del registro después de grabar. Las posibles 
opciones son: unlock (desbloquear), lock (grabe y bloquee) y delete 
(borra, porque la acción de delete es grabar). Para este caso se 
utiliza Unlock; si la opción fuera Lock, en este caso se debe indicar 
la llave y el tiempo de expiración del bloqueo. Esta acción se 
indica con la marca <write>. 

Al momento de grabar también se actualizó el archivo invertido -> 

27. <write>Unlock</write> 

</- en la línea siguiente, se invoca con la instrucción cat, al 
archivo resultados.html que visualiza el resultado de la operación 
dependiendo del valor de la variable 1 1 02 que corresponde al 
lsis_Status. Debe encontrarse antes que se cierre el Update, 
porque de lo contrario estaría fuera del scope y por lo tanto no 
sería vista. --> 

28. <display><htmlpft><pft>cat('ar/resultados.htmr)</pft></htmlpft></d¡ 
splay> 

29. </update> 

30. </do> 

<!- para que no ingrese en la otra sección de código, es necesario 
finalizar la script en este punto. -> 

31 . <fiow action=exit>1 </flow> 

</-- aquí finaliza la opcion OK_NUEVO --> 


IMPORTANTE: como se observa, la script para OK_NUEVO no 
contiene un LOOP. Esto se debe a que la operación es sobre un solo 
registro. El Loop está pensado más bien, para una búsqueda, un keyrange, 
etc. 


La página resultado.html contiene la siguiente codificación: 

1. <html> 

2. <head> 

3. <title>Resultado</title> 

4. </head> 

5. <body> 

6. [pft],lf val(v1 102) <> 0 then 'Error: ',v1102,' Ha habido problemas con la 

operaci&oacute;n...' else '<b><strong>Operaci&oacute;n exitosa 
!!!</strong></bxbr>' fi[/pft] 

7. <a href="/ar/ejerc6.html">Volver...</a> 

8. </body> 
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9. </html> 


El formulario hace un tratamiento del estado de la operación analizando el 
valor de la variable 1102 ( lsis_Status ). Si el valor es cero (0) la operación fue 
exitosa, es decir, no hubo problemas para la grabación del registro. Caso 
contrario, de no completarse la misma se muestra el código de error. Además se 
contempla un retorno al formulario ejerc6.html. 
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Para este caso, si la operación fue exitosa, se visualiza la siguiente 
pantalla: 


ID Untitled- Microsoft Internet Explorer 


Archivo Edición Ver Ir a Favoritos Ayuda 

<= ^ O □ (3 <3 a 




o q o @ a- m M ^ a 

■larile Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 


Dire c ción http: /71 27. 0. 0. 1 /cgi-bin/wxis. exe/?l sisScript=ar^2Fscript6. xi$8cclave=polo&¡d=&opcion=0 K_NU EVO Sctitulo=M ethodologhy+in+reprodu ▼ | Vínculo s 



Modificación de Registros (EDICÍON) 

Se aborda ahora el modelo de Edición de un Registro que ya ha sido 
cargado. 

Primero se verifica si el registro está bloqueado. De estarlo se informa; de 
lo contrario se envía un formulario que presenta la información que tiene cargado 
el registro con la posibilidad de modificarlo. 

Para este caso, se trabaja con la misma script: script6.xis. 

Para modificar un registro se debe indicar la base de datos, el número de 
mfn que se modifica y la llave del cliente. 

El formulario que se utiliza es el que se ha venido utilizando para la carga 
de nuevos registros; la pantalla para este caso de modificación es la siguiente: 



Como se observa en el gráfico, se ha indicado la edición del registro 
número 5 y también se ha colocado la clave (llave). 

Cuando se hace click en el botón Continúa, se pasa al control a la 
script6.xis. En este caso, el formulario pasa el valor EDICION a través de la 
variable oculta opcion. Recordar que la script analiza el valor de la opción y 
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dependiendo del mismo deriva el control a una sección dentro de la script. Esa 
porción de código que realiza el desvío del flujo de la ejecución es: 


<flow action=jump><pft>v5001 </pftx/flow> 
donde v5001 es el valor de opcion. Como dicha variable posee el valor 
EDICION, entonces la script realiza el salto al rótulo con este nombre. 

En la Script se debe indicar el tiempo que dispone el usuario para modificar 
el registro. Ello se logra con la marca 

<parm name=expire>tiempo_en_segundos</parm>. Si el tiempo expira, el 
registro se desbloquea para ese usuario, con lo cual, ya no tendrá la posibilidad 
de modificarlo si otro usuario ha tomado posesión del mismo. 

Su código es: 

<!--Aqu¡ comienza la opcion EDICION --> 

32. <label>EDICION</label> 

</~/a tarea que se realiza es de actualización, por ello update -> 

33. <do task=update> 

<!-se indica la base, el número de mfn (tag 6001) y la llave (tag 5002) 
—> 

34. <parm name=db>cds</parm> 

35. <parm name=mfn><pft>v6001</pftx/parm> 

36. <parm name=lockidxpft>v5002</pftx/parm> 

</- se indica el tiempo total que dispone el cliente para actualizar el 
registro (60 segundos) --> 

37. <parm name=expire>60</parm> 


<!- se define el tag para verificar el estado de registro -> 

38. <field action=define tag=1 1 02>lsis_Status</field> 

</- se define un nuevo tag 1101 para dejar grabado en el registro la 
información del bloqueo. Notar que este campo no es importado al 
scope-update ya que wxis los agrega como parte del registro. --> 

39. <field action=define tag=1 1 01 >lsis_Lock</field> 

40. <update> 

</-- en la próxima instrucción se intenta bloquear el registro con la 
llave que se posee. De lograrse, el registro estará disponible por 60 
segundos para ser modificado por el cliente. --> 

41 . <write>Lock</write> 

</- es necesario importar la variable opcion, que esta en el tag 
5001 para que se vea; y luego poder pasarla al formulario --> 

42. <field action=import tag=5001 >5001 </field> 
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<!- también es necesario importar la clave, para pasarla luego al 
formulario --> 

43. <field action=¡mport tag=5002>5002</field> 

<!- lo mismo para el MFN para luego pasarlo al formulario --> 

44. <field action=import tag=6001 >6001 </field> 

</- se indaga si se ha bloqueado el registro a través del lsis_Status 
que corresponde a la etiqueta 1102 (val (vi 102) <> 0); y de estar 
bloqueado por otro usuario, se emite una leyenda de error --> 

45. <display><pft>lf val(v1 1 02) <> 0 then '<h3xb>Error: \v1 1 02,' Ei 
registro no est&aacute; disponible. ,.</bx/h3>' fi</pftx/display> 

</- como el registro no esta bloqueado (val (vi 102) = 0), se llama al 
formulario que presentará la información del registro con la opción 
de modificar sus datos-> 

46. <displayxhtmlpftxpft>if val(v1 1 02) = 0 then 
cat('ar/formulario.htmr) fi</pftx/htmlpftx/display> 

47. </update> 

48. </do> 

49. <flow action=exit>1</flow> 

<!— aquí finaliza la opcion EDICION --> 


A formulario.html se lo llama pasándole el nombre de la base de datos, el 
mfn que se actualiza, la llave del usuario (estos datos son necesarios pasarlos 
porque luego los necesitará la script6.xis para proceder a la grabación del 
registro) y el valor EDICION en opcion. 

El formulario mostrará el registro y aceptará las modificaciones, luego 
indaga el valor de opcion y dependiendo de él, realiza la actualización de la 
variable y también presenta el título en función a su contenido: 


<¡nput type="hidden" name="opcion" value= 

[pft]if v5001 = 'NUEVO' then '"OK_NUEVO"' fi[/pft] 

[pft]if v5001 = 'BORRAR' then '"OK_BORRAR"' fi[/pft] 

[pft]if v5001 = 'EDICION' then '"OK_EDICION"' fi[/pft]> 

<p align="center"xfont size="5"xemxstrongxu> 

[pft]if v5001 = 'NUEVO' then 'Nuevo Registro' fi[/pft] 

[pftjif v5001 = 'BORRAR' then 'Eliminaci&oacute;n del Registro' fi[/pft] 
[pftjif v5001 = 'EDICION' then 'Edici&oacute;n de Registro' fi[/pft] 

</u x/st ro n g x/e m x/f o n t x/p > 


Ahora opción asume el valor OK_EDICION. Con este nuevo valor pasará a 

la script6.xis. 
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La pantalla que se visualiza es: 


|Q Nuevo Registro - Microsoft Internet Explorer 


Archivo Edición Ver Ir a Favoritos Ayuda 

o ■=*> © 13 ® i?r OÉ 

Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 

m 

D irección j http: //localhost/cgi-bin/wxis. exe 

Vínculos 

■ - - — — . 


Edición de Registro 


Titulo: 

lAnti-transpirants as a research tool for the study oí the e 

Autor: 

Gale, J. 

Poljakoff-Mayber, A. 
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d 


Notas: 

|lncl. bibl. 

OK 


Si en ese mismo momento otro usuario intentara editar el mismo registro, 
se visualiza el siguiente mensaje en el browser: 


[j wxis.exe en localhost - Microsoft Internet Explorer 


Archivo Edición Ver Ir a Favoritos Ayuda 

II o O © fS O (*> 


i M H3 

Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 


Dirección | http: //localhost/cgi-bin/wxis. e 


Vínculos 


Error: 5 El registro no está disponible... 


Luego de modificar los datos del registro y al hacer click sobre el botón 
OK, se envían los datos a la script6.xis pero esta vez con el valor OK_EDICION 
en la variable opcion. La script se ejecutarán las siguientes líneas: 


<!--Aqui comienza la opcion OK_EDICION --> 

<!- En este punto, el flujo de información ha vuelto del formulario donde se 
tuvo la posibilidad de modificar el contenido del registro. Entonces, lo que 
resta en las líneas siguientes es actualizar físicamente el registro (grabarlo) 
—> 

50. <label>OK_EDICION</label> 

51 .<do task=update> 

</- aqui se debe decir lo mismo que se colocó en el label EDICION, 
después del task y antes del update -> 

<!-se va a realizar una tarea del tipo actualización, verificando si el registro 
no esta bloqueado. Se debe que indicar la base, el mfn y la llave --> 

52. <parm name=db>cds</parm> 

53. <parm name=mfn><pft>v6001</pftx/parm> 

54. <parm name=lockid><pft>v5002</pftx/parm> 

55. </-- Antes de grabar, compara esta llave con la que posee el registro 
en el campo vi 101, si coinciden podrá actualizar el registro, sino se 
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mostrará un mensaje de error. Esta comparación corre por cuenta del wxis 
al momento de la grabación, liberando al programador de agregar líneas de 
programa para considerar esta situación 

<!-- se define el tag que se utilizará para verificar si la operación pudo 
realizarse --> 

56. <field action=define tag=1 1 02>lsis_Status</field> 

57. <field action=define tag=1 1 01 >ls¡s_Lock</field> 

58. <update> 

</- antes de actualizar los datos, es necesario borrar los campos del 
registro que se han modificado; pero no el registro. Eso lo realizan las 
siguientes lineas. En este caso se ha procedido a borrar cada etiqueta, 
pero existe una modalidad para borrar todos los campos del registro --> 

59. <field action=delete tag=24>ALL</field> 

60. <field action=delete tag=70>ALL</field> 

61 . <field action=delete tag=50>ALL</field> 

<!-se toma el titulo modificado --> 

62. <field action=cgi tag=24>titulo</field> 

<!-se toma el/los autores modificados --> 

63. <field action=cgi tag=70>autor</field> 

</- Como el campo autor es repetible, entonces se realiza el siguiente 
tratamiento: se reemplaza el campo 70 por un formato en el que se 
indica un nuevo argumento en el field con el parámetro split, que le 
indica que cada vez que encuentre un CR, lo reemplace por una nueva 
ocurrencia. --> 

64. <field action=replace tag=70 spiit=occ><pft>(v70/)</pftx/field> 

<!-se toma el campo notas modificado-> 

65. <field act¡on=cg¡ tag=50>notas</field> 

<!-ahora se procede a grabar el registro físicamente indicándose que 
luego, se lo desbloquee. Si se requiere dejar bloqueado, se debe definir 
el tiempo de expiración --> 

66. <wr¡te>Unlock</write> 

</-- a continuación se evalúa la operación. La siguiente linea se debe 
incluir dentro del scope </update> debido a que en resultados.html se 
evalúa la variable 1 102 que fuera del scope no se podría evaluar (no se 
ve) --> 

67. <display><htmlpft><pft>cat('ar/resultados.htmr)</pft></htmlpft></disp!ay 
> 

68. </update> 

69. </do> 

70. <flow action=exit>1 </flow> 

<!--Aqui finaliza la opción OK_EDICION --> 
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En el código anterior se vio el borrado de cada una de las etiquetas de la 
siguiente forma: 

<field action=delete tag=24>ALL</field> 

<field action=delete tag=70>ALL</field> 

<field action=delete tag=50>ALL</field> 

Se podría realizar el borrado de todas ellas con una sola marca: 

<field action=delete tag=list>ALL</field> 
donde list hace referencia a todos los campos.?????? 


NOTAS IMPORTANTES: 

• Después de verificar si el registro está bloqueado, se podrían utilizar 
varios display para tratar los estados del registro o bien utilizar las 
marcas <Select case...>. 

• Dentro del Scope se tiene acceso a la información a nivel del Registro. 
Si se necesita algún dato que no es del registro, debe ser importado 
dentro del Scope. 

Las variables de actualización automática que son definidas con <field 

action=define > pueden ser invocadas únicamente dentro del Scope, 

ya que son parte de los campos del registro. Después del mismo 
siguen estando disponibles las variables definidas fuera del Scope- 
registro. 

Siempre que se actualiza tener en cuenta: cuando se toma el registro 
para su modificación es necesario indicar el tiempo que tiene 
disponible el usuario para actualizar el registro. Si no se indica, el 
mismo queda por tiempo indefinido bloqueado y a disposición del 
usuario. 

• Tener en cuenta que los campos importados al Scope son tomados 
como parte del registro y al momento de grabar son incorporados al 
mismo como campos nuevos. En el caso que se edite el mismo registro 
se generarán nuevas ocurrencias de estos campos. Lo conveniente es 
antes del proceso de grabado, realizar un borrado de todos ellos (CGI y 
los Editados en el formulario). 
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Borrado de Registros (BORRAR) 


Para el borrado de registros, el procedimiento es similar al visto en 
EDICION. La diferencia sustancial radica en la acción de la marca <write>, que 
para este caso el parámetro es Delete. 

El formulario que presenta el browser para el borrado del registro 9 es: 



Cuando se hace click en el botón Continúa se llama a la script6.xis 
pasando el valor BORRAR en la variable opcion. 

Cuando la Script recibe el control, el flujo pasa al rótulo BORRAR cuya 
codificación es la siguiente: 

<!--Aqui comienza la opcion BORRAR --> 

71. <label>BORRAR</label> 

<!-\a tarea que se realiza es de actualización, por ello update -> 

72. <do task=update> 

<!-se indica la base, el número de mfn (tag 6001) y la llave (tag 5002) 
—> 

73. <parm name=db>cds</parm> 

74. <parm name=mfn><pft>v6001</pftx/parm> 

75. <parm name=lockidxpft>v5002</pftx/parm> 

</- se indica el tiempo total del que dispone el cliente para borrar el 
registro (60 segundos) --> 

76. <parm name=expire>60</parm> 

</- se define el tag para verificar el estado de registro --> 

77. <field action=define tag=1 1 02>lsis_Status</field> 


59 







<!- se define un nuevo tag 1101 para dejar grabado en el registro la 
información del bloqueo. Este tipo de campo no precisa ser importado 
al scope-registro -> 

78. <field action=define tag=1 1 01 >lsis_Lock</field> 

79. <update> 

<!- es necesario importar la variable opcion, que esta en el tag 
5001 para que se vea; y luego poder pasarla al formulario --> 

80. <field action=import tag=5001 >5001 </field> 

</-- también es necesario importar la clave, para pasarla luego al 
formulario --> 

81 . <field action=import tag=5002>5002</field> 

</- lo mismo para el MFN para luego pasarlo al formulario --> 

82. <field action=import tag=6001 >6001 </field> 

<!- en la próxima instrucción se intenta únicamente bloquear el 
registro con la llave que se posee. De lograrse, el registro estará 
disponible por 60 segundos para ser eliminado por ese cliente. --> 

83. <write>Lock</write> 

</-- se indaga si se ha bloqueado el registro a través del lsis_Status 
que corresponde a la etiqueta 1 102 (val (vi 102) <> 0); y de estar 
bloqueado por otro usuario, se emite una leyenda de error --> 

84. <display><pft>lf val(v1 1 02) <> 0 then '<h3xb>Error: >1 1 02,' El 
registro no est&aacute; disponible. ..</bx/h3>' fi</pftx/display> 

</- como el registro no esta bloqueado (val (vi 102) = 0), se llama al 
formulario que presentará la información del registro con la opción 
de eliminarlo-> 

85. <d¡splayxhtmlpftxpft>if val(v1 1 02) = 0 then 
cat('ar/formulario.htmr) fi</pftx/htmlpftx/display> 

86. </update> 

87. </do> 

88. <flow action=exit>1</flow> 

<!- aquí finaliza la opción BORRAR --> 


A formulario.html se lo llama pasándoles el nombre de la base de datos, 
el mfn que se actualiza, la llave del usuario (estos datos son necesarios pasarlos 
porque luego los necesitará la script6.xis para proceder al borrado del registro) y 
el valor BORRAR en opcion. 

Recordar que el formulario indaga el valor de opcion y dependiendo de él, 
realiza la actualización de la variable y también el título que se visualiza varía: 

<¡nput type="hidden" name="opcion" value= 

[pft]if v5001 = 'NUEVO' then '"OK_NUEVO"' fi[/pft] 

[pft]if v5001 = 'BORRAR' then '"OK_BORRAR"' fi[/pft] 

[pft]if v5001 = 'EDICION' then '"OK_EDICION"' fi[/pft]> 
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<p align="center"xfont size="5"><em><strong><u> 

[pft]if v5001 = 'NUEVO' then 'Nuevo Registro' fi[/pft] 

[pftjif v5001 = 'BORRAR' then 'Elim¡naci&oacute;n del Registro' fi[/pft] 
[pftjif v5001 = 'EDICION' then 'Edici&oacute;n de Registro' fi[/pft] 
</ux/strong></em></fontx/p> 


Ahora opcion asume el valor 0KJ30RRAR. Con este nuevo valor pasará 

a la script6.xis. 

La pantalla que se visualiza es: 


|Ej Nuevo Registro - Microsoft Internet Explorer 

mmm 

Archivo Edición Ver ir a Favoritos Ayuda 

© £*> á§ M S¡r EH 

Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 


JJ Dirección |http://localhost/cgi-bin/wxis.exe | 

Vínculos 

i .i 


Eliminación del Registro 


Titulo: 

1 A New type of porometer for measuring stomatal openi 



3 


Autor: 


zi 


Notas: 

|lncl. bibl. 


OK 


Si en ese mismo momento otro usuario intentara editar el mismo registro, 
se visualiza el siguiente mensaje en el browser: 


[j wxis.exe en localhost - Microsoft Internet Explorer 

mmm 

Archivo Edición Ver Ir a Favoritos Ayuda 

^ ¡£ © 0 á§ M HI 


Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 


Dirección |http://localhost/cgi-bin/wxis.exe 

Vínculos 


Error: 5 El registro no está disponible... 



Notar que el ISIS_STATUS contiene el valor 5 cuando el registro se encuentra 
bloqueado. 

Luego al hacer click sobre el botón OK, se envían los datos a la script6.xis 
pero esta vez con el valor OK_BORRAR en la variable opción. 


<!--Aqui comienza la opción OK_BORRAR --> 

<!- En este punto, el flujo de información ha vuelto del formulario donde se 
tuvo la posibilidad de visualizar el contenido del registro antes de borrarlo. 
Entonces, lo que resta en las líneas siguientes es borrar lógicamente el 
registro --> 

89. <label>OK_BORRAR</label> 

90. <do task=update> 


61 









<!-se va a realizar una tarea del tipo actualización, verificando si el registro 
no esta bloqueado. Se debe indicar la base, el mfn y la llave --> 

91. <parm name=db>cds</parm> 

92. <parm name=mfn><pft>v6001</pftx/parm> 

93. <parm name=lockid><pft>v5002</pft></parm> 

</- se define el tag que se utilizará para verificar si el registro sigue 
disponible para este usuario, porque puede suceder que el tiempo haya 
expirado. --> 

94. <field action=define tag=1 1 02>lsis_Status</field> 

95. <field action=define tag=1 1 01 >lsis_Lock</field> 

96. <update> 

</-- antes de borrar el registro, es necesario borrar todos los campos --> 

97. <field action=delete tag=list>ALL</field> 

<!-ahora se procede a borrar el registro --> 

98. <write>Delete</write> 

<!- a continuación se evalúa la operación. La siguiente línea se debe 
incluir dentro del scope </update> debido a que en resultados.html se 
evalúa la variable 1 102 que fuera del scope no se podría evaluar (no se 
ve) -> 

99. <dispIay><htmlpft><pft>cat('ar/resultados.html')</pft></htmlpft></display 
> 

100. </update> 

101. </do> 

1 02. <flow action=exit>1 </flow> 

<!--Aqu¡ finaliza la opción OK_BORRAR --> 

103. </section> 

104. </lsisScript> 


A continuación se transcribe el código completo de la script6.xis: 

<lsisScript> 

<section> 

<display><pft>'Content-type: text/html7#</pftx/display> 

<field action=cgi tag=5000>lsisScript</field> 

<field action=cgi tag=5001>opcion</field> 

<field action=cg¡ tag=6001>id</field> 

<field action=add tag=3030xpft>'c:\cursoV</pftx/field> 

<parm name=cipar> 

<pft>'cds.*='v3030'cds.*y</pftx/parm> 

<flow action=jump><pft>v5001 </pftx/flow> 

<!--Aqu¡ comienza la opción NUEVO --> 
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<label>NUEVO</labe¡> 

<display><htmlpft><pft>cat('ar/formulario.htmr)</pft></htmlpft></display> 
<flow action=exit>1</flow> 

</-- aquí finaliza la opción NUEVO --> 

<!--Aqui comienza la opción OK_NUEVO en la script6.xis--> 

<label>OK_NUEVO</label> 

<do task=update> 

<parm name=db>cds</parm> 

<parm name=mfn>New</parm> 

<parm name=fst><pft>cat('cds.fst')</pft></parm> 

<field action=define tag=1 102>lsis_Status</fieid> 

<field action=define tag=1 1 01 >lsis_Lock</field> 

<update> 

<field action=cgi tag=24>tituIo</field> 

<field action=cgi tag=70>autor</field> 

<field action=rep!ace tag=70 split=occxpft>(v70/)</pftx/field> 

<field action=cg¡ tag=50>notas</fieid> 

<write>Unlock</write> 

<displayxhtmlpftxpft>cat('ar/resultados.htmr)</pftx/htmlpftx/displ 

ay> 

</update> 

</do> 

<flow action=exit>1</flow> 

</- aquí finaliza la opción OK_NUEVO --> 

<!--Aqui comienza la opción EDICION --> 

<label>EDICION</iabel> 

<do task=update> 

<parm name=db>cds</parm> 

<parm name=mfnxpft>v6001 </pftx/parm> 

<parm name=lockidxpft>v5002</pftx/parm> 

<parm name=expire>60</parm> 

<field action=define tag=1 1 02>lsis_Status</field> 

<field action=define tag=1 1 01 >lsis_Lock</field> 

<update> 

<field action=import tag=5001 >5001 </field> 

<field action=import tag=5002>5002</field> 

<field action=import tag=6001 >6001 </field> 

<write>Lock</write> 

<displayxpft>lf vai(v1 1 02) <> 0 then '<h3xb>Error: >1 1 02,' El 

registro 

no est&aacute; disponible. ,.</bx/h3>' fi</pftx/display> 
<displayxhtmlpftxpft>if val(v1 102) = 0 then cat('ar/formulario.htmr) 
fi</pftx/htmlpftx/display> 

</update> 

</do> 

<flow action=exit>1</flow> 

<!— aquí finaliza la opcion EDICION --> 
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<!--Aqu¡ comienza la opcion OK_EDICION --> 

<label>OK_EDICION</label> 

<do task=update> 

<parm name=db>cds</parm> 

<parm name=mfn><pft>v6001 </pftx/parm> 

<parm name=lockid><pft>v5002</pftx/parm> 

<field action=define tag=1 102>ls¡s_Status</field> 

<field action=define tag=1 1 01 >lsis_Lock</field> 

<update> 

<field action=deiete tag=24>ALL</field> 

<field action=delete tag=70>ALL</field> 

<field action=de!ete tag=50>ALL</field> 

<field action=cgi tag=24>titulo</field> 

<field action=cg¡ tag=70>autor</field> 

<field action=cgi tag=50>notas</field> 

<field action=replace tag=70 split=occxpft>(v70/)</pftx/field> 
<write>Unlock</write> 

<d¡splayxhtmlpftxpft>cat('ar/resultados.htmr)</pftx/htmlpft> 

</display> 

</update> 

</do> 

<flow action=exit>1</flow> 

<!--Aqui finaliza la opción OK_EDICION --> 

<!--Aqu¡ comienza la opción BORRAR --> 

<labei>BORRAR</Iabel> 

<do task=update> 

<parm name=db>cds</parm> 

<parm name=mfn><pft>v6001 </pftx/parm> 

<parm name=lockidxpft>v5002</pftx/parm> 

<parm name=expire>60</parm> 

<field action=define tag=1 102>lsis_Status</field> 

<field action=define tag=1 1 01 >lsis_Lock</field> 

<update> 

<field action=import tag=5001 >5001 </field> 

<field action=import tag=5002>5002</field> 

<field action=import tag=6001 >6001 </field> 

<write>Lock</write> 

<displayxpft>lf val(v1 1 02) <> 0 then '<h3xb>Error: ',v1 1 02,' El 
registro no est&aacute; disponible... </bx/h3>' fi</pftx/display> 
<displayxhtmlpftxpft>if val(v1 102) = 0 then cat('ar/formulario.htmr) 
fi</pftx/htmlpftx/display> 

</update> 

</do> 

<flow action=exit>1</flow> 

<!— aquí finaliza la opción BORRAR --> 

<!--Aqui comienza la opción OK_BORRAR --> 

<label>OK_BORRAR</labe!> 

<do task=update> 
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<parm name=db>cds</parm> 

<parm name=mfnxpft>v6001 </pftx/parm> 

<parm name=lockid><pft>v5002</pftx/parm> 

<field action=define tag=1 1 02>lsis_Status</field> 

<field action=define tag=1 1 01 >lsis_Lock</field> 

<update> 

<field action=delete tag=list>ALL</field> 

<write>De!ete</write> 

<displayxhtmlpftxpft>cat('ar/resultados.htmr)</pftx/htmlpft> 

</display> 

</update> 

</do> 

<flow action=exit>1</flow> 

<!--Aqui finaliza la opción OK_BORRAR --> 

</section> 

</lsisScript> 


Funciones 


A los efectos de conocer la aplicación de las funciones, se crea una nueva 
Script denominada script7.xis. 

Las funciones deben ser declaradas entre las marcas <lsisScript> y 
<section>\ es decir al comienzo de la Script. 

<lsisScript> 

Aquí va la declaración de la función. 

<section> 


Se ha visto que el loop crea un Scope; la función también crea un Scope 
diferente a la de la section. 

El formato o sintaxis de la función es: 

<function name=UNO> (ñame es uno de los parámetros) 

líneas de ejecución 

</function> 

Para llamar a la función en la Section, se debe utilizar la marca <call 
name= ....> 

La sintaxis es: 
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<call name=Uno>Parámetro_que_se_pasa_a_la_func¡ón</call> 

Lo que se coloca entre las marcas es el parámetro que se le pasa a la 
función. 


Se puede definir una función con pasaje de parámetros. Para ello se 

define: 

<function name=DOS action=replace tag= 1 00> 

donde los parámetros que se reciben son guardados en el tag 100, que es 
una variable del scope-function. 

Se ha confeccionado un formulario que llama la script7.xis donde se 
observa la aplicación de las funciones. El código del formulario es el siguiente: 

1. <html> 

2. <head> 

3. <title>Funciones</title> 

4. </head> 

5. <body> 

6. <H3>Aplicación de Funciones</h3> 

7. <form action="/cgi-bin/wx¡s.exe" method="post"> 

8. cinput type="hidden" name="lsisScript" value="ar/script7.xis"> 

9. <p><input type="submit" value="Continua"> </p> 

10. </form> 

1 1 . </body> 

1 2. </html> 


La visualización en pantalla es la siguiente: 


Q Funciones - Microsoft Internet Explorer 


Archivo Edición Ver ir a Favoritos Ayuda 

o- =» © 0 O (S & 


él M, i?r Sí 

Atrás Adelante Detener Actualizar Inicio Búsqueda Favoritos Imprimir Fuente Correo Edición 

Dirección I http: //localhost/ar/ejerc7. html 


w | Vínculos 


Aplicadón de Fundones 


Continua 


Al hacer click en Continua, se llama a la script7.xis cuyo código es el 
siguiente: 

1. <lsisScript> 

<!-- La función UNO no recibe parámetros, imprime un mensaje y retorna - 
> 

2. <function name=UNO> 

3. <disp!ay><pft>'<h2>Este es el mensaje que imprime la FUNCION 
UNO</h2xbr>'</pftx/display> 

4. </function> 
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</- La función DOS recibe 1 parámetro (valor Wxis), que lo coloca en el tag 
1 00, imprime un mensaje junto al valor de la etiqueta y retorna -> 

5. <function name=DOS action=replace tag=100> 

6. <display><pft>'<hr><h3>Funci&oacute;n DOS valor pasado: 

>1 00,'</h3>'</pftx/display> 

7. </function> 

</- La función TRES recibe varios parámetros (cada uno de ellos se coloca 
en una ocurrencia distinta dentro del tag 100. Se crean tantas ocurrencias 
como parámetros se pasen) ello se logra con el atributo split. La función 
imprime un mensaje junto al valor de la etiqueta y retorna. Notar que el 
mensaje está entre paréntesis para hacer el tratamiento de cada una de las 
ocurrencias --> 

8. <function name=TRES action=replace tag=100 split=occ> 

9. <displayxpft>('<h3>Funci&oacute;n TRES, valor pasado: >100,' 
<i>Ocurrencia: ',f(iocc,3,0),'</ix/h3>)</pftx/d¡splay> 

10. </function> 

</- La función CUATRO recibe un parámetro que lo coloca en la etiqueta 
1 00, ese valor es reemplazado por un cálculo (es por ello que se utiliza field 
action=replace). Imprime un mensaje junto al valor de la etiqueta, antes de 
retornar coloca el valor del calculo que esta en la etiqueta 100, nuevamente 
en la etiqueta 2000. Esto se logra mediante una exportación. Este es el 
caso en que la función retorna un valor --> 

1 1 . <function name=CUATRO action=replace tag=1 00> 

12. <d¡splayxpft>'<h3>Funci&oacute;n CUATRO, valor pasado: 

>1 00,'</h3>'</pftx/display> 

1 3. <field action=replace tag=1 00><pft>f(val(v1 00) * 1 0,3,0)</pftx/f¡eld> 

14. <displayxpft>'<h3>Funci&oacute;n CUATRO, valor calculado: 

>1 00,'</h3>'</pftx/display> 

1 5. <return action=export tag=2000>1 00</return> 

16. </function> 

17. <section> 

18. <d¡splayxpft>'Content-type: text/html7#</pftx/display> 

1 9. <displayxpft>’<h1 ><u>P&aacute;gina sobre 
funcionesc/ux/hl xhr>'</pftx/d¡splay> 

</- se llama a la función UNO, lo que está entre las marcas cali, es el 
parámetro que se pasa. En este caso, el parámetro se pasa pero no 
tiene incidencia en la función. -> 

20. <call name=UNO>parametro_que_no_se_utiliza</call> 

21. <displayxpft>'<h4>Mensaje de Retorno: Func¡&oacute;n 
UNO</h4xp>'</pftx/display> 

<!- se llama a la función DOS, se le pasa el parámetro Wxis. --> 

22. <call name=DOSxpft>'Wxis'</pftx/call> 

23. <displayxpftxh4>Mensaje de Retorno: Funci&oacute;n 
DOS</h4xhrxp>'</pftx/display> 
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<!- se llama a la función TRES, se le pasa varios parámetros, cada uno 
de ellos separados por /y dentro de las marcas <pft> -> 

24. <call name=TRES><pft>'Wxis1 V'Wxis2'/'Wxis3'</pft></call> 

25. <display><pftxh4>Mensaje de Retorno: Funci&oacute;n 
TRES</h4xhr>'</pftx/display> 

<!- se llama a la función CUATRO, se le pasa el valor 30 que 
previamente se asigna a la etiqueta 2000 -> 

26. <field action=add tag=2000>30</field> 

27. <displayxpft>'<h3>VaIor de v2000 antes de la funci&oacute;n: 
',v2000,'</h3>'</pftx/display> 

28. <call name=CUATROxpft>v2000</pftx/cail> 

29. <d¡splayxpft>'<h3>Valor de v2000 despu&eacute;s de la 
funci&oacute;n: ',v2000,'</h3>'</pftx/display> 

30. <displayxpft>'<h4>Mensaje de Retorno: Funci&oacute;n 
CUATRO</h4>'</pftx/d¡splay> 

31. </section> 

32. </lsisScript> 
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El browser visualiza la siguiente pantalla: 
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